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SEQ 0001 
-REM a 


IDENTIFICATION 


PRODUCT CODE: AC-8528D-MC 

PRODUCT NAME: CcDLDDO DL11-W/1144 MFM SLU 
DATE CREATED: MARCH 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 


AUTHOR: DAN CASALET10 
REVISED BY: JOHN CIUKAJ 





THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE ‘AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO ote la he Hh ASSUMED FOR THE USE OR RELIABILITY OF 
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANE IS. 

COPYRIGHT (C) 1975, 1979 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWNG AR® TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MAS SBUS 
DEC DECUS DEC TAPE 
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HISTORY SECTION 


CZDLDDO WAS RELEASED OCT 79 
THE FOLLOWING CHANGES WERE MADE. ALL CHANGES ARE INDICATED 


BY 


;** IN THE COMMENT FIELD: 
tT. 


USE THE MFPT INSTRUCTION,AND IF THE CPU IS A 11/44: 
A. ects. PERFORM READER ENABLE AND RECEIVER ACTIVE 


B. IF Seo FLAGS TESTS AND BREAK TESTS _ 
ENABLED ,PERFORM THESE TESTS ONLY FOR THE SLU 
AT 176500, PERFORM THESE TESTS FOR THE CONSOLE SLU 
IF BITOS OF SWR IS ADDITIONALLY SET. 
C. WHILE IN MAINTENANCE MODE DO NOT WRITE AND READ 
A *P OR AN ASCII 220. THIS WILL FORCE THE CONSOLE 
INTO "CONSOLE MODE ' 

D. IN THE CLOCK REPEATABILITY TEST, ALLOW FOR A 
TOLERANCE OF 2 BETWEEN CLOCK COUNTS. THIS IS TO 
ALLOW ENOUGH TOLERANCE WHEN MOS MEMORY IS USED 
AND REFRESH CYCLES ARE OCCURING. 


2. Ay Lage SLU INTERRUPT REQUESTS ARE DEPENDANT ON A MFM CLOCK 


TIME MUST BE GIVEN FOR THEM TO OCCUR. co ALL TESTS 
ASSOCIATED WITH XMIT & RECEIVE INTERRUPTS SHOULD HAVE 
A MINIMUM OF 4 NOP'S ACTING AS WAIT FOR INTERRUPT. 


. IT WAS FOUND THAT AN ATTACHED TU58 WOULD BE ACTIVATED 


BY THE DIAGNOSTIC,AND.AS A RESULT,CHARACTERS WOULD BE 
SENT TO THE RECEIVER BUFFER. 

THIS WOULD CAUSE SOME TESTS TO FAIL. THEREFORE TO INHIBIT 
ANY COMMUNICATION TO THE TUS8 FROM THE DIAGNOSTIC: 


A. se ~~ Sr MODE IN ALL TESTS THAT WRITE TO 
B.IN ALL TESTS THAT ie TO XMITTER AND BEFORE LEAVING 
TEST: DELAY ENOUGH T TO ALLOW ANY CHARACTERS 
4p ~ P+ aad BE IN THE TPROCESS OF BEING XMITTED TO 
C.DISABLE MAINTENANCE MODE FOR PURPOSE OF ERROR es 
ONLY TO THE SLU WHICH THE TERMINAL IS ATTACHED 


- IT WAS FOUND THAT UPON POWERUP AND WITH THE aN ete 


CHARACTERS WOULD BE SENT " THE RECEIVER FROM T 
SOME RECEIVER TESTS WOULD FAIL DUE TO THIS. THEREFORE, 
ON ALL TESTS THAT PERFORM RECEIVER TESTS AND FOLLOWING 


TO ALLOW ANY CHARACTERS THAT MIGHT BE IN THE PROCESS OF 
BEING RECEIVED TO FINISH. 


. ADD SOFTWARE THAT WILL IMPLEMENT AUTO INITIATION OF 


11/44 T/A CONSOLE TEST VIA WRAP CABLE FROM TU5S8 TO CONSOLE 


SEQ 0002 
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PORTS. IT IS SELECTED BY SWR BITO2 AND IS PERFORMED 
ONLY AFTER ALL SLUS ARE TESTED. 





r 
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GENERAL INFORMATION 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
THE FOLLOWING MODULES: 


1. DL11-W SERIAL LINE/REAL TIME CLOCK INTERFACE 
2. 11/44 MULTIFUNCTION MODULE 


THE PROGRAM WILL RUN WITHOUT ANY SPECIAL TEST FIXTURES BY DEFAULT 
HOWEVER, THE FOLLOWING OPTIONAL TESTING IS PROVIDED: 


1. TEST TO VERIFY XMIT AND RECEIVE OF THE UARTS WITH 
A WRAP CABLE. THE UART UNDER TEST IS LOOPED BACK ON 
ITSELF. THIS IS SELECTED VIA OPERATIONAL SWITCH SETTING 
BIT 7, AND IS APPLICABLE TO THE DL11W AND 11/44 MFM, 


2. AUTOMATIC INITIATION OF THE T/A CONSOLE TEST OF THE 11/44 
MFM. THE TUS8 PORTS ARE LOOPED TO THE CONSOLE PORTS 
THIS IS SELECTED VIA OPERATIONAL SWITCH SETTING BIT 2 
AND IS APPLICABLE TO 11/44 MFM ONLY 
(SEE CKKFBAO FOR T/A CONSOLE TEST EXPLANATION) 


THIS (eres OPERATES ON THE CONSOLE SERIAL LINE AND CLOCK INTERFACES 
AS WELL AS UP TO FIFTEEN(19) ADDITIONAL IDENTICALLY CONF I GURED 
SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE: 


A. CONSOLE - irene SERIAL LINE 
177546 CLOCK 


B. OTHER SERIAL LINE - 776500 FIRST SERIAL LINE ADDRESS 
OF 15 CONSECUTIVE SERIAL 
LINE ADDRESSES 


THE PROGRAM IS DESIGNED TO RUN ON ANY PDP-11 WITH 8K OF MEMORY 
IT CAN BE RUN UNDER XXDP,APT, AND ACT MONITORS, 

AND ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER, 

SOFTWARE SWITCH REGISTER = LOCATION 176 


POWER FAILURE IS SUPPORTED FOR SYSTEMS WITH CORE MEMORY. 
NOTE: THIS DIAGNOSTIC WITH THE SWR = 000020 
(CLOCK TESTS ONLY) SHOULD BE USED ON SWITCHLESS CPU'S 
TO TEST KW-11L LINE CLOCK MODULES 


SYSTEM REQUIREMENTS 


STANDARD 11 FAMILY(COMPUTER WITH A CONSOLE OUTPUT DEVICE 
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“ND 8K OF MEMORY. 


OPTIONAL : 
1.LO00P CABLE FOR UART LOOP BACK ON ITSELF 
2.WRAP CABLE FOR 11/44 MFM 7/E TESTING 
(SEE DWG. 47016942 WRAP AROUND (ABLE 
AND SECTION 5.0 OF THIS DOCUMENT) 


THE PROGRAM USES Sk WORDS OF MEMORY 


SEQ 0005 
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SEQ 0006 


1.3 ASSUMPT i ONS 
A. IF THE UNIT UNDER TEST (UUT) IS THE CONSOLE , THE PROGRAM WILL 
ASSUME THE REAL TIME CLOCK (RTC) IS ENABLED AND WILL TEST IT 
UNLESS THE TESTS ARE DISABLED BY BIT6 OF THE SwR. 


B. IF THE UUT IS NOT THE CONSOLE, THE RTC IS NOT TESTED FOR THAT DEVICE. 


FOR THE DL11-Ww: 


THE PROGRAM WILL ASSUME THE ERROR FLAG BITS AND THE BREAK FUNCTION 
OF THE DL11-W ARE DISABLED AND WILL NOT TEST THESE FUNCTIONS 
UNLESS ENABLED BY BIT10 (FOR ERROR FLAGS) AND BIT8 (FOR BREAK) 
OF THE SWR. THE DEFAULT CHARACTER SIZE IS 8 BITS (SEE PARA 2.3.2). 


FOR THE 11/44: 


THE PROGRAM ASSUMES THAT THE ERROR FLAG BITS AND THE 
BREAK FUNCTION ARE DISABLED, AND WILL NOT TEST THESE FUNCTIONS 
HOWEVER, IF BIT 10 (FOR ERROR FLAGS) AND BIT 08 (FOR BREAK) 
OF SWR ARE SET, THEN ERROR FLAGS AND BREAK TESTS ARE PERFORMED 
FOR THE TUS8 SLU ONLY. IF BITO3 OF SWR IS ALSO 
SET THEN THESE TESTS WILL BE ENABLED FOR THE CONSOLE. 


READER ENABLE AND RECEIVER ACTIVE TESTS 
ARE NOT PERFORMED SINCE THE 11/44 MFM DOES NOT IMPLEMENT THESE 


FUNCTIONS. 
2.0 OPERATING INSTRUCTIONS 
2.1 LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES. 


2.2 STARTING PROCEDURE 


LGAD THE SWITCH REGISTER WITH SETTING 


NOTE: IF USING A CPU WITHOUT HARDWARE SWITCH REGISTER 
SOFTWARE SWITCH REGISTER LOCATION = 176. 
(FOR A 11/44 CPU USE MFM CONSOLE FOR DEPOSITING 
SWITCH REGISTER. TYPE “P TO ENTER CONSOLE) 


A. START AT 200. 
AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS IDENTIFICATION 
AND REPORT THE NUMBER OF DEVICES UNDER TEST (NUMBER IS OCTAL) 
A Ry IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES 


B. START AT 204. eee eNOTE eae 
THE *ECHO"’ TEST WILL BE EXECUTED. AN ‘'s'' IS PRINTED AT THE 
BEGINNING OF THE TEST. THE ECHO TEST READS A CHARACTER FROM 
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THE TERMINAL ,WRITES THAT CHARACTER TO THE TERMINAL AND 
REPORTS ANY ERROR FLAGS SET IN THE RECEIVER BUFFER. 

A CONTROL-C HALTS THE TEST AND PRINTS ‘'STOP"' AT THE TERMINAL 
CONTINUING RESTARTS THE ECHO TEST. 


C. START AT 210. wexaNOTE eee 
THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY CHARACTER 
AT THE TERMINAL, HALTS THE TEST. CONTINUING RESTARTS THE TEST. ‘ 
THE TEST OUTPUTS 32 CHARACTERS ON A LINE AND REPEATS THE 
PATTERN EVERY THREE LINES. THE PATTERN IS AS FOLLOWS 
(OCTAL CODE 040 ==> 377): 


(OCTAL CODE) 
"ME2B' () *+ =. /0123456789: ; <=>? (040 --> 077) 


-REM 
@ABCDEF GH] JKLMNOPQRSTUVWXYZC\)*_ (100 ==> 137) 
" ABCDEF GHI JKLMNOPQRS TUVWXYZ (140 ==> 177) CLOWER CASE ALPHA] 


THIS BCTiOM LINE COULD BE THE FOLLOWING IF THE TERMINAL 
DOES NOT HAVE LOWER CASE: 


@ABCDEF GHI JKLMNOPORSTUVWXYZC\ CUPPER CASE ALPHA] 
kkekaeNOTExx® 
IF THE TESTING ON TERMINIALS OTHER THAN THE CONSOLE IS DESIRED sere 


FOR TESTS B OR C,SEE SECTION 2.3.4. AND 2.3.5. OF THIS DOCUMENT. sar 0 
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OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 

THE DIAGNOSTIC WILL CHECK FOR EXISTENCE OF SWITCH 

REGISTER AT 177570. 

IF NO SWITCH REGISTER IS AVAILABLE THE PROGRAM 
WILL AUTOMATICALLY USE THE CONTENTS OF LOCATION 
176 AS THE SOFTWARE SWITCH REGISTER. THE USER SHOULD 
SET THJS LOCATION BEFORE STARTING THE PROGRAM. IF A 
HARDWARE SWITCH IS AVAILABLE AND A SOFTWARE SWR(LOC. 176) IS 
DESIRED,LOAD ALL 1'S INTO LOCATION 177570.(ALL SWITCHES 
UP IF PHYSICAL SWITCHES ARE AVAILABLE) 


BIT15 - HALT a2 = 

BIT14 - SCOPE L 

BIT13 = INHIBIT OERROR TYPEOUT 

BIT12 - UNUSED 

BIT11 ~ UNUSED 

BIT10 - ENABLE ERROR FLAGS TESTS 

BITO9 - LOOP ON ERROR 

B1T08 - ENABLE BREAK FUNCTION TESTS 

BITO7 - ENABLE DATA TEST WITH WRAP CABLE 

BIT06 - INHIBIT RTC TESTS (ALLOW ONLY SLU TESTS) 

BITOS - ALLOW MANUAL SETTING OF ‘‘SDEVM'* (DEVICE MAP) 
BIT04 ~- INHIBIT SLU TESTS (ALLOW ONLY LINE CLOCK TESTS) 
BITO3 - FOR 11/44 MFM: ENABLE BOTH ‘BREAK TESTS" AND ‘ERROR FLAG 


TESTS" FOR THE CONSOLE SLU. he BIT IS VALID 
ONLY IF BIT10 OR BITO8 IS SET.) 
BIT02 -11/44 MFM OPTION: SELECT AUTO. INITIATION 
OF T/A CONSOLE TEST VIA WRAP CABLE 


FOR DL11-W: 


IF THE SOFTWARE SWITCH REGISTER IS USED(LOC. 176) THEN 

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G 

(CNTL_G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. BECAUSE THIS DIAGNOSTIC USES THE MAINTENANCE BIT 

OF THE SERIAL LINE, THE CONTROL~G SHOULD BE ISSUED DURING PROGRAM 
TYPEOUTS AT THAT TIME THE MAINTENANCE BIT IS SURE TO BE CLEAR. 


IF A _CONTROL~G IS DETECTED, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(IE) SWR=XXXXXX  NEW= 
POSSIBLE RESPONSES ARE: 


neg 
SEQ 0008 
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1. <CR> IF NO CHANGES ARE TO BE MADE 

e. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW os gg REGISTER 
VALUE ;LAST DIGIT FOLLOWED BY <CR>. 

ee “ TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 


KEYING IN SWREG VALUE. 
FOR 11/744 CPU: 


SINCE THE 11/44 HAS A HARDWARE SWITCH REGISTER LOADED ey THE MFM CONSOLE 
THEN THE DIAGNOSTIC SHOULD ALWAYS FIND EXISTENCE OF 177 
WHEN OPERATING ON THE 11/44 CPU, DYNAMIC CHANGING OF SWREG(177570) DURING 
PROGRAM EXECUTION CAN BE ACCOMPLISHED BY USING 
TME MFM CONSOLE. TYPING “P<CR> ON THE CONSOLE TTY WILL ENTER THE 
CONSOLE. THIS IS CONSIDERED ‘'CONSOLE MODE"’ 
TO EXAMINE SWREG TYPE * E SW<CR> ' TO THE CONSOLE ar tan x. LOAD THE 
SWREG TYPE ' D SW DATA<CR> ' WHERE ‘DATA’ IS AN OCTAL NUMBER 
IN ORDER FOR THE DIAGNOSTIC TO TYPE 10. THE TTY IT Is" NECESSAR 
TO HAVE THE 11/44 MFM IN ‘PROGRAM 1/0 MODE''. THIS CAN BE ACCOMPL I SHED 
BY TYPING * C<CR> * TO THE CONSOLE PROMPT. THEREFORE ,WHEN CONSOLE 
USE IS COMPLETED, PLACE THE MFM IN ‘PROGRAM 1/0 MODE” 
oh oy THIS DIAGNOSTIC USES THE MAINTENANCE BIT, *P WILL 

T BE ACKNOWLEDGED DURING THESE TESTS.THEREFORE, ISSUE “P 
DURING PROGRAM TYPEOUTS. AT THIS TIME THE MAINTENANCE BIT 
WILL BE CLEARED. 


SEQ 0009 


Sy 
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SETTING BITS PER CHARACTER 


THIS PROGRAM DEFAULTS TO TESTING 8 BITS PER CHARACTER. IF THE 
SERIAL LINE IS SET FOR 5-=>7 BITS PER CHARACTER, SET THE 
MEMORY LOCATION *‘SUSWR’* AS FOLLOWS: 


CHAR. SIZE "SUSWR'' CONTENTS 
(# OF BITS) BINARY) (OCTAL) 


000100000 
““SUSWR'' IS USED IN THE DATA PATH TESTS TO LIMIT THE BINARY 


COUNT TEST PATTERN TO THE NUMBER OF BITS SELECTED ON THE 
SERIAL LINE. 


RUNNING UNDER APT 


THE APT MAILBOX IS LOCATED AT LOCATION 500, TO ALLOW ADDITIONAL SERIAL 
LINE VECTOR ASSIGNMENTS TO THE 400 AREA OF MEMORY. 


FOR DL11W: 


THE DEFAULT EXECUTION TIMES PROVIDED(STSTM,$PASTM) ARE FOR EXECUTION 
WITH AN 11/34 PROCESSOR, CORE MEMORY , AND 110 BAUD. 


FOR 11/44: 


THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS AND 
IN SECT. 2.4 ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 
16K CORE oa feel AND 300 BAUD. 
THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 
1. E TABLE ‘A’ IS USED FOR APT DUMP MODE . 
A. TWO SLU'S ARE TESTED. ($SWREG BITOS=1 AND $DEVM=3) 
A_SLU AT 177560(DEFAULT CONSOLE SLU) AND AT 176500 
(BASE oo bike yy 
B. THE ERR AND BREAK | i hd ARE SELECTED FOR THE SLU 
AT 156800( TUS SLU IN MF 
(SSWREG BIT 10 AND 8 =)° 


2. E TABLE ‘B’ IS USED FOR APT QV AND RUN TIME MODES. IT ACCOMPLISHES 
WHAT E TABLE ‘A’ DOES, BUT ADDITIONALLY IT SUPPRESSES ALL TYPEOUTS 
TO THE TERMINAL (SENVM=240) AND SELECTS AUTO TESTING OF T/A 

CONSOLE TEST VIA WRAP CABLE($SWREG BITO2=1). 


1ST PASS LONGEST 
RUN TIME TEST TIME 
60 50 


SEQ 0010 





2: 
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E-MODE /S-MODE 
(SENVM/SENV) 


SWITCH REGISTER 1 
($SSWREG) 


SWITCH REGISTER 2 
CPU TYPE/OPT IONS 


BUS PRIORITY/INTERRUPT 1 
BUS PRIORITY/INTERRUPT 2 
BUS ADDRESS CODE 

DEVICE MAP CODE 

($DE VM) 


CTLR. SPECIFIC WORD 1 
CTLR. SPECIFIC WORD 2 


E TABLES 


A 

200/000 
002440 
00/0000 
000/00000000 
000/00000000 
000/00000000 
000/00000000 
0000 

0000 

176500 
000003 


000000 
000000 


B 
240/001 
002404 


000400 
00/0000 
000/00000000 


000/00000000 
0000 


0000 
176500 
000003 


000000 
000000 


SEQ 0011 


co 


-MAIN. 


MACRO M1111 


2.3.4 


| 


20-SEP-79 10:37 PAGE 65 


RUN WITH ALTERNATE CONSOLE ADDRESS 

TO USE_A CONSOLE ADDRESS OTHER THAN 177560, OR oe + OTHER 

THAN 60, THE OPERATOR MUST SUPPLY THE PROGRAM WITH THE 

CORRECT ADDRESSES BY INSERTING THEM AT THE TAG LABELED ‘'CRCSR"’: 
CRCSR: ADDRESS OF R 


S 
CRBUF: ADDRESS OF RECEIVER BUFFER 


: DRESS OF 
CTBUF: ADDRESS OF TRANSMITTER BUFFER 
CRVECT: ADDRESS OF RECEIVER ye 
CRPSW: ADDRESS OF ASSOCIAED P 
CTVECT: ADDRESS OF TRANSMITTER. VECTOR 
CTPSW: ADDRESS OF ASSOCIATED PSW 


THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE SLU'S. IT REQUIRES 
THE ADDRESS OF THE FIRST ADDITIONAL RCSR (STORED AT ‘‘SBASE'') AND 
ITS INTERRUPT VECTOR (STORED AT ‘SVECT1"'); AND WILL BE ABLE 

TO ADDRESS ANY SLU STARTING AT THE SPECIFIED BASE ADDRESS UP TO 
15 CONSECUTIVE DEVICES. 


EXAMPLE : $BASE: 776500 
$VECT1: 300 
THE PROGRAM WILL BE ABLE TO TEST THE CONSOLE PLUS ANY 
ADDITIONAL DL11-wW SLU'S WITHIN THE RANGE 776500 --> 776660 
$BASE AND $VECT1 DEFAULT TO 776500 AND 300 RESPECTIVELY. 


THE PROGRAM ASSOCIATES UNIT NUMBERS TO DEVICES AS FOLLOWS: 
(NUMBERS IN PARENTHESIS ARE OCTAL) 


UNIT# 0 --> CONSOLE CADDRESS STORED AT “'CRCSR''] 
UNIT# 1 ==> BASE ADDRESS STORED AT 

ASSOCIATED BASE VECTOR STORED AT’ ‘$SVECT1"° 
UNIT# 2 --> BASE ADDRESS + (10) 
UNIT# 3 --> BASE ADDRESS + coo) 


TOR 20 
UNIT# 4 --> BASE ADDRESS + (30) 
BASE VECTOR + (30) 


Vv 
UNIT#15 ==> BASE ADDRESS + (160) 
BASE VECTOR + (160) 


SEQ 0012 


S% 
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STARTING AT LOCATION 200 AND HAVING BITS OF SWR CLEAR, THE PROGRAM WILL SELF 
SIZE THE NUMBER OF DEVICES (STARTING AT THE BAS ADDRESS) AND 

STORE A BIT MAP AT ‘SDEVM'’ (DEVICE MAP) TO INDICATE WHICH UNIT NUMBERS 

ARE PRESENT AND WILL BE TESTED: 


A BIT MAP CAN BE ENTERED AT ‘‘SDEVM'’ PRIOR TO STARTING THE PROGRAM 
SETTING BITS OF THE SWR INHIBITS THE SELF-SIZING AND DEVICE MAP 
GENERATION,AND USES THE VALUE STORED BY THE OPERATOR. 


EXAMPLE : 

SWR = 000040 CBINARY 0 000 000 000 100 000) 
$SBASE: 776500 

$VECT1: 300 

SDEVM: 13 CBINARY - 0 000 900 000 001 011) 


THE PROGRAM WILL TEST - 
UNIT# 0 


= CONSOLE 
UNIT# 1 = 776500 ; 300 
UNIT# 3 = 776520 ; 320 


SEQ 0013 
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EXECUTION TIMES - 


FOR DL11=W: (110 BAUD) 
LONGEST SUBTEST TIME 
PASS TIME 

ADDITIONAL DEVICES 


FOR oxy * (300 BA 
“erg SUBTEST TIME 
PASS ME 


TI 
ADDITIONAL DEVICES 


ERROR REPORTING 


SEQ 0014 


50 SECONDS 
60 SECONDS 
55 SECONDS/DEVICE 


50 SECONDS 
60 SECONDS 
55 SECONDS/DEVICE 


IF A ROUTINE FAILS AND THE INHIBIT Age re (BiT13) OF THE SWR 
IS NOT SET, A PRINTOUT RESULTS IN THE FORM 


"(SOME ASCII MESSAGE)"’ 
TESTA ERR PC RCSR 
XO OOK KKK 


CANY APPLICABLE DAT HEADINGS] 
CANY APPLICABLE DATA] 


NOTE: *RCSR'' IS DEPENDENT ON THE FAILURE 
& THEREFORE COULD BE TCSR,RBUF ,TBUF ,OR LKS 


WHERE *'XXXXXX'" IS AN OCTAL 


NUMBER 
THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS 


WOULD NOT HINDER THE TYPEOUT. 


IN CASES WHERE IT IS NOT POSSIBLE 


TO PRINT AN ERROR MESSAGE (1.E. FATAL CONSOLE TRANSMITTER 
FAILURES), A HALT OCCURS AND THE PC CAN BE EXAMINED BY THE OPERATOR 
TO FIND THE ERROR INFORMATION IN THE PROGRAM LISTING. 


NOTE: FOR SOFTWARE SWITCH OPERATION, THE SWITCH REGISTER CAN 

BE CHANGED BY TYPING A CONTROL-G AT THE CONSOLE DURING _ PRINTOUTS. 
AFTER CONTINUING FROM THE ERROR HALT THE OLD SWR CONTEN 

IS DISPLAYED AND THE NEW CONTENTS CAN BE ENTERED. 

IF ERROR HALTS ARE DISABLED, THE CONTROL~G RESPONSE OCCURS 

IMMEDIATELY FOLLOWING THE TYPEOUT. 





-M 
ERI 


-MAIN, 


MACRO M1111 


4.0 


4.1 


4.3 


20-SEP-79 10:37 PAGE 68 


SEQ 0015 


SUBROUTINE ABSTRACTS 


THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 DESIGNED TO 
DETECT AND ISOLATE UNEXPECTED TRAPS TO THE TRAP AND INTERRUPT VECTOR 
AREA OF MEMORY. 


EACH VECTOR ENTRANCE ADDRESS IS LUADED WITH THE ADDRESS OF THE NEXT 
apy THE NEXT LOCATION IS LOADED WITH A BREAK POINT TRAP (000003). 
THUS AN ILLEGAL TRAP OR INTERRUPT CAUSES A TRAP THROUGH THE BPT VECTOR‘ 14) 
WHICH POINTS TO THE ‘'CATCH'’ ROUTINE. 


THE ‘*CATCH'' ROUTINE REPORTS THE PC THAT CAUSED THE ORIGINAL TRAP AND 
THE LOCATION OF THE TRAP VECTOR (IF UNDER APT, AN ERROR IS INDICATED TO APT). 
ay nse peak THE ERROR THE PROGRAM HALTS. THE PROGRAM MUST BE RESTARTED 

H NT. 


THIS ROUTINE IS USED TO WRITE THE PSW BY POPPING VALUES FROM THE 
Seorehonnt® METHOD IS USED TO BE COMPATIBLE WITH ALL 117 FAMILY 
$. 


SCOPE 

THIS ROUTINE CALL IS PLACED BETWEEN EACH SUBTEST. IT RECORDS THE STARTING 
ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED AND UPDATES THE 

TEST NUMBER. IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE START OF THE 
SUBTEST AT WHICH THE SCOPE LOOP IS REQUESTED. 


2s 
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SEQ 0016 | 


THIS ROUTINE CALL IS PLACED WHEREEVER AN ERROR REPORT 

IS DESIRED. THE LOWER BYTE OF THIS CALL 1S USED AS THE ERROR NUMBER 
AND AS A POINTER INTO THE ERROR TABLE . THIS ROUTINE REPORTS ERRORS 
TO APT USING ‘‘SAPTYPE’' AND TYPES ERROR REPORTS TO THE CONSOLE 
USING "‘SERRTYPE"’. 


THIS ROUTINE SAVES ALL GENERAL REGISTERS DURING POWER-DOWN 
AND RESTORES THEM AT POWER-UP. IF A POWER FAILURE OCCURS 
"POWER'' IS PRINTED AT THE CONSOLE AFTER POWER IS RESTORED. 


THIS ROUTINE CALL IS USED TO DETECT THE RECEPTION OF A CONTROL-G 
FROM THE CONSOLE. THE CALi USES ‘‘SREAD'' TO PERFORM THE CONTROL-G 
SEQUENCE OF DISPLAYING THE CONTENTS OF THE SOFTWARE SWITCH REGISTER 
AND THE ENTERING THE NEW CONTENTS FROM THE TERMINAL. 


5.0 AUTOMATIC INITIATION OF 11/44 T/A CONSOLE TEST 
VIA WRAP CABLE 


PURPOSE: THE T/E(OR T/A) CONSOLE TEST CAN BE IMPLEMENTED 

BY MANUALLY TYPING [/E(OR T/A) ON THE KEYBOARD 

OF THE TERMINAL WHEN IN CONSOLE MODE. IN ORDER TO 

ott gd THIS TEST IN AN AUTOMATIC WAY . MANUF AC TURING 
ILE UNDER APT, THE USE OF A WRAP CABLE FROM 

THE TUS8 TO THE CONSOLE CAN BE USED ALLOWING THIS 

DIAGNOSTIC TO ISSUE THE 'T/A* COMMAND TO THE CONSOLE. 

THE DIAGNOSTIC WILL ISSUE THE APPROPRIATE SEQUENCE 

OF COMMANDS TO THE CONSOLE VIA THE WRAP CABLE WHEN 

BITO2 OF SWR =1. THE DIAGNOSTIC WILL THEN MONITOR 

THE EXPECTED RESPONSE FROM THE CONSOLE VIA THE WRAP 

CABLE AND HALT IF THERE IS AN ERROR. THE T/A TEST 

IS DONE ONLY AFTER ALL SLUS ARE TESTED. IF T/A IS SUCCESSFUL 

"END PASS’ IS PRINTED AND THE DIAGNOSTIC STARTS AGAIN. 


FIGURE 1 SHOWS THE PROPER WRAP CABLE SETUP _AND 
REQUIREMENTS FOR AUTOMATICALLY INITIATING T/A FROM THE 
THE DIAGNOSTIC.NOTICE THAT THIS ARRANGEMENT ALLOWS 
FOR THE TERMINAL TO MONITOR ALL COMMUNICATION FROM 
THE CONSOLE OUTPUT DURING EXECUTION OF THE DIAGNOSTIC 
IN "WRAP MODE"’. 





TYPEOUT EXAMPLES 


1. WITH THE CONFIGURATION OF FIGURE 1 AND ‘WRAP MODE’ SELECTED 
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THE PROGRAM MAY BE LOADED BY APT. IF ‘E TABLE B" OF SECTION 
2.3.3 WERE USED WITH THE EXCEPTION OF ALLOWING TYPEOUTS($ENVM=200) 
THE FOLLOWING WOULD BE SEEN ON THE LOCAL TERMINAL: 


CZDLDDO DL11-W/1144 MFM SLU 
O2 DEVICES UNDER TEST “P 


CONSOLE 
>>>T/A 
CONSOLE-TESTB 
END PASS “P 
CONSOLE 
>>>T/A 
CONSOLE-TESTB 
END PASS “P 
CONSOLE 
>>>T/A 
CONSOLE-TESTB 
END PASS “Ps cuase ETC. 
DESCRIPTION: REFERING TO THE ABOVE PRINTOUTS: 
A. THE DIAGNOSTIC IS LOADED WITH THE TITLE BEING PRINTED. 
B. TWO SLU DEVICES(CONSOLE,TUS8) ARE SPECIFIED 
C. BOTH SLUS ARE TESTED COMPLETELY. AT THIS POINT 
THE THE DIAGNOSTIC ISSUES “P TO THE WRAP CABLE. 
THE CONSOLE ENTERS CONSOLE MODE AND 
THE “P TYPED ON THE TERMINAL IS THE MFM CONSOLE ECHO. 
D. THE CONSOLE PERFORMS ITS OWN SELF TEST BY TYPING 
"CONSOLE' FOLLOWED BY >>>, THE CONSOLE PROMPT. 
E. THE DIAGNOSTIC THEN ISSUES T/A AND THE TERMINAL 


SHOWS THE CONSOLE ECHO OF THIS. 


. THE MFM THEN PERFORMS THE T/A TEST SHOWN BY THE TERMINAL 


TYPING ‘CONSOLE-TESTB’.THE DIAGNOSTIC LOOKS i THE 
*B’ IN THIS TYPEOUT,AND WHEN FOUND , CONSIDERS 

THE TEST A SUCCESS. THE DIAGNOSTIC WILL rey END PASS 
INDICATING A SUCCESSFUL PASS OF THE DIAGNOSTIC. 


G. THE DIAGNOSTIC CONTINUES WITH FURTHER PASSES OF THE 


DIAGNOSTIC. 


SEQ 0017 
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2. IF ‘E TABLE B" OF 2.3.3 WERE USED WITH TYPEOUTS SUPPRESSED 


(SENVM=240) AS STATED, 


NOTICED: 


ap 
CONSOLE 
>>>T/A 


CONSOLE=TESTB*P 
CONSOLE 
>>>T/A 


CONSOLE=-TESTB*P 
CONSOLE 
>>>T/A 


CONSOLE-TESTB*P 


THEN THE FOLLOWING TYPEOUTS WOULD BE 


conswk Cs 


SFQ 0018 
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SEQ 0019 


FIG. 1= WRAPAROUND CONFIGURATION = AUTG INITIATION OF 
11/44 T/A CONSOLE TEST 


SRR RAAAARRAE ERAT AEREEAERARREERAEREERAEAAEAAHORERAARAARREREERRAREREKRENS 


WRAP AROUND CABLE 
TU58 CONSOLE TTY PORT 
OUTPUT OUTPUT 
| 


TTY PRINTER TTY KEYBOARD 


; WHEN THE SWITCH IS IN "NORMAL'' MODE CONTACTS ARE: 
: Si-C2 IS CLOSED 
S1-C1 IS OPEN 
: $3-C3 IS OPEN 
; THIS ALLOWS THE USE OF THE TERMINAL WITH THE CONSOLE 


; WHEN THE SWTICH IS IN ‘WRAP** MODE CONTACTS ARE 

: $1-C1 CLOSED 

: ED 

; THIS ALLOWS THE TU58 PORT TO COMMUNICATE WITH THE CONSOLE PORT AND FOR 
; THE TTY TO MONITOR THE CONSOLE OUTPUT 

; THIS IS ALL DONE WITH A DPDT SWITCH 

; BEFORE THIS TEST CAN BE RUN THE CONSOLE UART,TTY,TU58 MUST BE AT 

; THE SAME BAUD RATE. THE CONSOLE AND TU58 UART,AND THE TTY SHOULD BE 
;SET UP WITH THE SAME STOP BIT SETTING, 

; WITH PARITY INHIBITED AND WITH A WORD LENGTH OF 7 OR 8 BITS 


; FOR MORE INFORMATION SEE THE MFM PRINTS AND THE WRAP AROUND 
; CABLE DRAWING NUMBER: 7016942 


PTAA ARERR EEE RARE EAA RR ERR ERE A EE RH 
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001100 
104000 
000004 


SEQ 0020 


-MCALL .$TYPE,.$TYPOC,.$TRAP 
-MCALL .SETUP,STARS,PUSH,POP,SETUP,.EQUIV,.SERRTYP 
-MCALL .$APTHDR,.S$APTBLS,.$ACT11,.$SCOPE 
-MCALL .S$CMTAG,.$EOP,.$READ 
-MCALL .EQUAT 
-SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

ERROR=EMT 

SCOPE=I0T 
> *MISCELLANEOUS DEFINITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 
LF= 12 7;CODE FOR LINE FEED 
CR= 15 3:CODE FOR CARRIAGE RETURN 
CRLF= 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
PS = pd ;;PROCESSOR STATUS WORD 

W= 

STKLMT= 177774 :; STACK LIMIT REGISTER 
PIRQ= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; HARDWARE SWITCH REGISTER 
DDISP= 177570 ; ;HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= x0 7 GENERAL REGISTER 
R1= %1 3;GENERAL REGISTER 
R2= %2 3; GENERAL REGISTER 
R3= %3 3;GENERAL REGISTER 
R4= %4 7;GENERAL REGISTER 
R5= %5 3;GENERAL REGISTER 
R6= %6 ;;GENERAL REGISTER 
R7= %7 3 GENERAL REGISTER 
SP= 46 7: STACK POINTER 
PC= %7 7 zPROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
PRO= 0 : PRIORITY LEVEL 0 
PR1= 40 7 PRIORITY LEVEL 1 
PR2= 100 : PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
PR4= 200 s PRIORITY LEVEL 4 
PR5= 240 ; PRIORITY LEVEL § 
PR6= 300 ::PRIORITY LEVEL 6 
PR7= 340 : PRIORITY LEVEL 7 





M 
ERI 
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BASIC DEF INI TIONS 


100000 
040000 


3*'"SWITCH REGISTER" SWITCH DEFINITIONS 
100000 


;*DATA BIT gpa anaes (BITOO TO BIT15) 


Sw15= 00 

Swi4= 40000 

SwW13= 20000 

SW12= 10000 

Swi1= 4000 

Sw10= 2000 

SwO9= 1000 

SwO8= 400 

SwO7= 200 

SwO6= 100 

swOS= 40 

SwO4= 20 

SwO3= 10 

SwO2= 4 

SwOl= 2 

SwOO= 1 
SW9=SWO9 
SW8=SWwO8 
Sw7=SwW07 
SW6=SW06 
SW5=Sw05 
SW4=SWO04 
SW3=Sw03 
SwW2=Sw02 
SW1=SW01 
SWO=SW00 

BIT15= 1000 

BIT14= 40000 

BIT13= 20000 

BIT12= 10900 

BIT11= 4000 

BIT10= 2000 

BITO9= 1000 

BITO8= 400 

BITO7= 200 

BITO6= 100 

BITO5= 40 

BIT04= 20 

BiTO3= 10 

BITO2= 4 

BITO1= 2 

BITOO= 1 
BIT9=B1T09 
BIT8=B1T08 
B1T7=B1T07 
BIT6=BIT06 
BITS5=B1T05 
B1T4=B1T04 
BIT3=B1T03 
BIT2=BIT02 
BIT1=B1T01 


BI T0=B1 T00 


SEQ 0021 


-M 
ERS 
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BASIC DEFINITIONS 
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876 000016 
877 


892 000210 


Laevece "'CPU'' TRAP VECTOR” ADDRESSES 


000004 ERRVEC= 4 TIME OUT AND OTHER ERRORS 
000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 i m+ 6OlT 
000014 TRIVEC= 14 3; TRACE TRAP 
000014 BPTVEC= 14 + : BREAKPOINT TRAP (BPT) 
000020 IOTVEC= 20 :: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 PWRVEC= 24 7 POWER FAIL 
000030 EMTVEC= 30 : s EMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVE C=34 “"TRAP’' TRAP 
000060 TKVEC= 60 zsTT¥ KEYBOARD VECTOR 
000064 TPVEC= 64 sTTY PRINTER VECTOR 
000240 PIRQVEC= oe ? +: PROGRAM INTERRUPT REQUEST VECTOR 
176500 ABASE= 176500 
300 AVECT1= 300 
000400 AUSWR= 400 
00001 $TN= 1 
161000 ¢SWR= 161000 
000003 BPT= 000003 THIS IS THE COMMAND FOR A TRAP 
» THROUGH 14 (BPT TRAP) 
000000 -=0 
Z FO RK RRR KKK RHEE K KK RK 
;*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ‘'.+2,BPT"' 
:*SEQUENCE TO CATCH ILLEGAL TRAPS & INTERRUPPTS 
:*LOCATION 0 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
000014 214 ;THE BPT TRAP VECTOR POINTS TO THE 
014552 . WORD CATCH 3 ILLEGAL TRAP HANDLER ‘'CATCH'' 
000340 -WORD 340 
000042 = 42 
000000 -WORD 0Q 
000174 .* 174 
000000 DISPREG:.WORD 0 
SWREG: .WORD 9 
000200 -=200 
000167 002642 JMP START 3:D0 paren ate TEST 
000167 017114 JMP ECHO ;DO ECHO TEST 


000167 017330 


JMP OUTTST :DO OUTPUT TEST TO TERMINAL 


SEQ 0022 


. 
zz 


MAIN. 


M,.CRO M1 dy 


BASIC DFT INITION 


894 
895 
896 


897 


898 


000052 


000500 
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RK 2 
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SEQ 0023 


-= 500 
-SBTTL ACT11 HOOKS 


: FERRER REE REE REE EERE EERE RRR REE RH 


HOOKS REQUIRED BY ACT11 
$SVPC=. 


ve SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
"WORD 0 :22)SET T LOC.5 .52 TO ZERO 


-=$SVPC 
.SBTTL APT PARAMETER BLOCK 


FRO IRR ICR IORI IOI IORI ISR AIA IIA IAISISIAISIISSSSISAISIS AISA ASAIN SAASANAA. 
7SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
abana “aig ee Ye ee a at ai 
- $X=. SAVE CURRENT LOCATION 
-=24 ::SET POWER FAIL TO POINT TO START OF PROGRAM 
200 23 FOR APT START UP 
-=44 ;sPOINT TO APT INDIRECT ADDRESS PNITR. 
SAPTHDR ::POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
ETI TITTITICIITITILI LILLE LLL LEE LL LLhihhhihdd 
; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD : 

$SHIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL : TADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 50 2 = RUN TIM OF LONGEST TEST 

$PASTM: .WORD 60 ee oa TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
$UNITM: .WORD 55 DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


. WORD $ETEND-SHAIL/2 3 ;LENGTH MAILBOX~E TABLE (WORDS) 
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COMMON TAGS SEQ 0024 


900 .SBTTL COMMON TAGS 


ZOOS SIO IOI SIOISISIOISIOIDIDIOIDIOISIDIIIOIDIOI IOI SII SISIIDISIISI IIIT OIRO IIE 
:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


001000 -=1000 
001000 SCMTAG: 3¢START OF COMMON TAGS 
001000 000000 -WORD 0 
001002 000 $STSTNM: .BYTE 0 3;CONTAINS THE TEST NUMBER 
001003 000 $ERFLG: .BYTE 0 :- CONTAINS ERROR FLAG 
$ICNT: .WORD 0 ;:CONTAINS SUBTEST ITERATION COUNT 
000000 $LPADR: .WORD 0 ;: CONTAINS SCOPE LOOP ADDRESS 
001010 000000 $LPERR: .WORD 0 ;;CONTAINS SCOPE RETURN FOR ERRORS 
001012 000000 SERTTL: .WORD 0 3:CONTAINS TOTAL ERRORS DETECTED 
001014 000 SITEMB: .BYTE 0 ;sCONTAINS ITEM CONTROL BYTE 
001015 001 SERMAX: .BYTE 1 3 ;CONTAINS MAX. ERRORS PER TEST 
001016 000000 SERRPC: .WORD 0 ;:CONTAINS PC OF LAST ERROR ee 
001020 000000 $GDADR: .WORD 0 3:CONTAINS ADDRESS OF ‘GOOD’ DAT 
001022 000000 $BDADR: .WORD 0 3:CONTAINS ADDRESS OF ‘BAD’ DATA. 
001024 000000 $GDDAT: .WORD 0 2 CONTAINS ‘GOOD * DATA 
001026 000000 $BDDAT: .WORD 0 : CONTAINS * DATA 
000000 -WORD 0 7 RESERVED=-NOT TO BE USED 
001032 000000 -WORD 0 
001034 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
001035 000 SINTAG: .BYTE 0 3; INTERRUPT MODE INDICATOR 
001036 000000 -WORD 0 
001040 177570 SWR : «WORD DSWR 7 zADDRESS OF SWITCH REGISTER 
001042 177570 DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 
001044 177560 $TKS: 177560 :-TTY KBD STATUS 
001046 177562 $TKB: 177562 :-TTY KBD BUFFER 
001050 177564 $TPS: 177564 7zTTY PRINTER STATUS REG. ADDRESS 
001052 177566 $TPB: 177566 ; eeTTy PRINTER BUFFER REG. ADDRESS 
001054 000 $NULL: .BYTE 0 CONTAINS NULL CHARACTER FOR FILLS 
001055 002 $FILLS: .BYTE 2 CONTAINS # OF FILLER CHARACTERS REQUIRED 
001056 012 $FILLC: .BYTE 12 23 INSERT FILL CHARS. AFTER A ‘LINE FEED" 
001057 $TPFLG: .BYTE 0 ;""TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
000000 SESCAPE :0 ; ;ESCAPE ON ERROR ADDRESS 
001062 077 $QUES: .ASCII /?/ QUESTION MARK 
001063 015 $CRLF: .ASCII <15> : : CARRIAGE RETURN 
001064 012 000 SLF: eASCIZ <12> NE FEED 
TTT TITEL TT TTTTTETTTTTTTT LTTE ELLE LLL 
.SBTTL APT MAILBOX~ETABLE 
DL AAR ERK EERE REECE EKER EERE EERE ARERR EEE REE ERE ERE ERE EH 
.EVEN 
001066 SMAIL: ::APT MAILBOX 
001066 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001070 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001072 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
001074 ses SPASS: .WORD APASS  ;;PASS COUNT 
001076 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
1100 000000 $SUNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
001102 000000 SMSGAD: .WORD AMSGAD ; ;MESSAGE in 
001104 000000 SMSGLG: .WORD AMSGiG 2 ¢MESSAGE LENGTH 
001106 SE TABLE: 3;APT ENVIRONMENT TABLE 


001106 000 SENV: .BYTE AENV > ENVIRONMENT BYTE 


zz 
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APT MAILBOX~E TABLE 


000 
000000 
000400 
000000 


; ENVIRONMENT MODE BITS 
3;APT SWITCH ; ahinat 


1706: Lot. "11/05=02, 11/20=03,11/40=04 ,11/45=05 
/70=06 ,PDQ=07 ,=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT + acta 
BIT 8=MEMORY MANAGEMENT 
+ ;HIGH ADDRESS ,M.S. BYTE 
:MEM. TYPE ,BLKA1 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC “ 003 
:sHIGH ADDRESS ,BLK# 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ''TYPE’’ ABOVE 
ue, ADDRESS M.S. BYTE 
2 ¢MEM.T YPE ,BLKA2 
arp H ADDRESS ,BLKA#2 
ADDRESS ,M.S.BYTE 
BLKA3 


3 THIGH = sy et te .S.BYTE 
:MEM. LAST “ADDRESS ,BLKA4 

INTERRUPT VECTOR#1 ,BUS PRIORITYA1 

ZEINTERRUPT VECTOR#2BUS PRIORI TY#2 

;sBASE ADDRESS OF EQUIPMENT UNDER TEST 

; DEVICE MAP 


SEQ 0025 





. 
ze 
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FRROR POINTER TABLE SEQ 0026 
-SBTTL ERROR POINTER TABLE 


7*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
[*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE iba IS PERTINENT. 


zz 


**NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERR 
* *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS ENPLAINED AS FOLLOWS: 
:* EM 7zPOINTS TO THE ERROR MESSAGE 
;* DH ;zPOINTS TO THE DATA HEADER 
3* DT :zPOINTS TO THE DATA 
:* DF :zPOINTS TO THE DATA FORMAT 
001146 SERRTB: 
902 001146 .SERRTB: 
903 001146 017630 EM) 7, CAN NOT ACCESS TCSR"' 
904 001150 024012 DH1 :""TESTA ERR PC TCSR'' 
905 001152 024572 DT1 [STESTN, SERRPC,TCSR 
oe 001154 0 
908 001156 017654 EM2 :''CAN NOT ACCESS TBUF"' 
909 001160 024037 DH2 *""TEST# ERR PC TBUF'’ 
910 001162 024602 DT2 SSTESTN, SERRPC , TBUF 
raf 001164 0 
913 001166 177 EM3 :''TCSR DONE NOT CLEARED WITH TBUF FULL" 
914 001170 024012 DH1 "TESTA ERR PC TCSR' 
915 001172 024572 DT1 S$TESTN, SERRPC,TCSR 
a 001174 0 
918 001176 017745 EM4 :''TCSR DONE NOT SET" 
919 001200 024012 DH1 :" TESTA ERR PC TCSR'’ 
920 001202 024572 DT1 *$TESIN, SERRPC,TCSR 
oss 001204 000000 0 
923 001206 017767 EMS :TCSR_DONE NOT SET WITH RESET 
924 001210 024012 DH1 2" TESTA ERR PC TCSR' 
5 001212 024572 DT1 7 STESTN, SERRPC,TCSR 
926 001214 0 
928 001216 020024 EM6 2) ‘CAN A! ACCESS RCSR** 
001 24 DH6 :''TESTA ERR PC RCSR"’ 
930 001222 024612 DT6 *STESIN, SERRPC.RCSR 
931 001224 0 
cer 001226 02005 EM7 :"'CAN NOT ACCESS RBUF’’ 
001 024111 DH7 TESTA ERR PC RBUF"' 
o3¢ 001232 024622 DT7 *STESTN, SERRPC , RBUF 
eae 001 0 
0012 020074 EM10 :''CAN NOT as LKS"" 
939 001240 024136 DH10 STEST# ERR PC LKS'' 
940 001242 024632 DT10 *STESTN, SERRPCLKS 
941 001244 0 
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ERROR POINTER TABLE 


943 001246 


o28 001274 
958 001276 


971 001324 
972 

973 001326 
974 001330 


020117 


020630 
024912 


;'BITO OF TCSR NOT CLEAR AFTER RESET’’ 
;'TEST# ERR PC _TCSR 
;STESTN,SERRPC,TCSR 


:''CAN NOT SET BITO OF TCSR"’ 
:"'TESTH ERR PC TCSR"' 
STESTN, SERRPC,TCSR 


:''CAN NOT CLEAR BITO OF TCSR’’ 
:''TEST# ERR PC _TCSR' 
:STESTN, SERRPC,TCSR 


;' RESET DID NOT CLEAR BITO OF TCSR"’ 
S"'TEST# ERR PC TCSR"' 
SSTESTN, SERRPC, TCSR 


;'BIT2 OF TCSR NOT CLEAR AFTER RESET’’ 
S"'TEST# ERR PC TCSR" 
[STESTN, SERRPC,TCSR 


7) CAN NOT SET BIT2 of TCSR"' 
;""TESTH ERR PC TCS 
:STESTN, SERRPC, 1CsRe 


;''CAN NOT CLEAR arts OF TCSR"’ 
:UTESTA ERR PC TCS 
:STESTN,SERRPC, rcsR. 


‘RESET DID NOT CLEAR BIT2 OF TCSR"’ 
;''TEST# ERR PC _TCSR’ 
SSTESTN, SERRPC,TCSR 


:'BIT6 OF TCSR NOT CLEAR AFTER RESET2 
:"TEST# ERR PC TCSR’ 
;STESTN, SERRPC,TCSR 


2’ XMIT INTERRUPT WITH PRIORITY 7°° 
:"'TEST# ERR PC _TCSR' 
STESTN, SERRPC,TCSR 


3)'CAN_NOT SET BIT6 OF TCSR"’ 
:""TEST# ERR PC _TCSR"’ 
STESTN, SERRPC,TCSR 


7‘'CAN_NOT CLEAR arts. OF TCSR*’ 
TEST# ERR PC TCSR' 


SEQ 0027 





ns 
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1000 001402 
1001 001404 


ak 


88 8888 88ss8 38gs 
8 


BE5893 


MAR] Sos 
NO 


EP PPE oe 
httotes 


— — st ot _— SS — ad ot 


— ee os 2 6s - 3 SS ot os SI St a 
&- 


elelelelelelelelele) 
223 33S 
WODNAULWN oO 


1440 
1020 001442 
1021 001444 
1022 

1023 001446 
1026 001454 
1027 

1028 001456 
1031 001464 
1032 

1033 001466 


RRRRRRRRK 
NQAUSWN =O 


1 
1 
1 
1 
1 
1 


1049 001520 
1050 001522 
1051 001524 
1052 

2 001526 
1054 001530 
1055 001532 
1056 001534 
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ERROR POINTER TABLE 


024572 
000000 
020663 
024012 
024572 
000000 


020724 
024064 
024612 
000000 
020767 
024064 
024612 
000060 
021026 
021057 
024064 
024612 
000000 


021112 


021222 
024136 
024632 
00000 


021260 


SEQ 0028 


i STESTN,SERRPC,TCSR 


7, RESET DID NOT CLEAR BIT6 OF TCSR’ 
;UTEST# ERR PC _TCSR"’ 
:$TESTN,SERRPC,TCSR 


:'BIT6 OF RCSR NOT CLEAR AFTER RESET’’ 
S"'TEST# ERR PC RCSR’ 
:$TESTN, SERRPC ,RCSR 


> RCVR_ INTERRUPT WITH PRIORITY 7°° 
:"'TEST# ERR PC RCSR'' 
$TESTN, SERRPC ,RCSR 


;"'CAN NOT SET ae -. RCSR"’ 


<""TEST# ERR PC 


;STESTN, SERRPC,RCSR 


:\'CAN NOT CLEAR aes OF RCSR"’ 


7''TESTA ERR PC 


;STESTN,SERRPC,RCSR 


7, CAN NOT CLEAR BIT6 OF RCSR WITH RESET2 
7"'TESTA ERR PC  RCSR' 
> STESTN, SERRPC ,RCSR 


:‘BIT6 OF LKS ane — AFTER RESET’’ 
7" TEST# ERR PC 
:STESTN, SERRPC, LkS 


;"'LKS_ INTERRUPT a PRIORITY 7°’ 
s"TESTH ERR PC 
SSTESTN, SERRPC, LkS 


;"‘CAN NOT SET tt? OF LKS"’ 


"TESTA ERR PC 


i STESTN,SERRPC,LKS 


;"'CAN NOT CLEAR BIT6 OF LKS"’ 
LKS"* 


<""TEST# ERR PC 


7 STESTN, SERRPC LKS 


| RESET DID NOT CLEAR BIT6 OF LKS"' 
TEST# ERR PC LKS'' 
S$TESTN, SERRPC ,LKS 





. 
=z 


-MAIN. 


1057 
1058 001536 


: 1087 


po ok 001626 
1094 001630 


5 
883 
FREE 
NO 


1656 


me ee ed ed ed ed 8 ed ed 


As oe os VS os ss os Ot SS 
Wr =oSRQLRGRAVLS 


: 
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ERROR POINTER TABLE 


022032 


SEQ 0029 


;' DUAL ADDRESSING ERROR" 
:"'TEST# ERR PC GOOD BAD"’ 
SSTESTN, SERRPC , $GDADR, $BDCSR 


;'BIT? OF LKS NOT SET AFTER RESET2 
s"'TEST# ERR PC LKS'' 
SSTESTN, SERRPC ,LKS 





;"'CAN NOT CLEAR BIT7 OF LKS"’ 
LKS"' 


S"TESTA ERR PC 


;STESTN,SERRPC,LKS 


:'BIT? OF LKS DOES NOT SET’’ 
:"'TEST# ERR PC LKS' 
;STESTN,SERRPC, LKS 


2’ RTC_INTERRUPT AT PRIORITY = 
S"'TEST# ERR PC LKS"" 
[STESTN,SERRPC ,LKS 


:'RTC_INTERRUPTS WHEN DISABLED"’ 
s"'TESTA ERR PC LKS'' 
STESTN, SERRPC ,LKS 


7’ RTC_ INTERRUPT t NOT OCCUR"’ 
S"'TEST# ERR PC LKkS"’ 
;STESTN,SERRPC, LKS 


7RIC "INTERRUPT DID NOT OCCURT’ 
:'TEST# ERR PC LKS"' 
STESTN, SERRPC,LKS 


:* RTC DOUBLE INTERRU°T’’ 
:"'TESTA# ERR PC LKS'' 
SSTESTN, SERRPC ,LKS 


;' RESET DID NOT CLEAR RTC INTERRUPT"’ 
“"TEST# ERR PC LKS"’ 


“STESTN, SERRPC,LKS 


2, RTC INTERRUPT “4 NOT CLEAR WITH BIT7 OF LKS"’ 


:'TEST# ERR PC 
SSTESTN, SERRPC ,LKS 


MAIN 
OR 


. MACRO M1111 
POINTER TABLE 
1114 001670 024216 
1115 001672 024654 
1116 001674 000000 
1118 001676 022056 
1119 001700 024012 
1120 001702 024572 

1121 001704 

1122 

1123 001706 022214 
1124 001710 024012 
1125 001712 024572 
1126 001714 

1127 

1128 001716 922114 
1129 001720 024012 
1130 001722 024572 
1131 001724 
1132 

1133 001726 022152 
1134 001730 024012 
1135 001732 024572 
1136 001734 

1137 

1138 001736 022214 
1139 001740 024012 
1140 001742 024572 
1141 001744 

1142 

1143 001746 022243 
1144 001750 024012 
1145 001752 024572 
1146 001754 

1147 

1148 001756 022267 
1149 001760 024012 
1150 001762 024572 
1151 001764 

1152 

1153 001766 022334 
1154 001770 024064 
1155 001772 024612 
1156 001774 

1157 

1158 001776 022360 
1159 002000 024064 
1160 002002 024612 
1161 002 

1162 

1163 002006 022404 
1164 002010 024 
1165 002012 024612 
1166 002014 

1167 

1168 002016 022452 
1169 002020 024064 
1170 002022 024612 
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=z 


| 
SEQ 0030 ; 


:‘‘TEST# ERR PC LKS CNT1__ CNT2"’ 
;STESTN, SERRPC,LKS,FIRST,SECND 


7''XMIT INTERRUPTS WHEN DISABLED'’ 
7TEST# ERR PC __TCSR"' 
;$TESTN,SERRPC,TCSR 


:'*XMIT DID NOT INTERRUPT"* 
:"'TESTA ERR PC _TCSR"’ 
;STESTN,SERRPC,TCSR 


:'*XMIT INTERRUPT AT PRIORITY 7°' 
:''TESTA ERR PC TCSR"' 
;STESTIN, SERRPC,TCSR 


:'*XMIT INTERRUPTS WITH ENABLE CLEAR’’ 
:"'TESTA ERR PC  TCSR"' 
SSTESTN,SERRPC,TCSR 


7'XMIT DID NOT INTERRUPT*’ 
:"'TESTA ERR PC TCSR"’ 
SSTESTN,SERRPC,TCSR 


7''XMIT RE-INTERRUPTED"’ 
:''TEST# ERR PC __TCSR"’ 
;STESTN,SERRPC,TCSR 


:" LOADING TBUF DID NOT CLEAR INTERRUPT"* 
:"‘TESTA ERR PC TCSR"’ 
;STESTN,SERRPC,TCSR 


:’RCVR ACTIVE NOT SET" 
7"'TESTA ERR PC RCSR"' 
;STESTN,SERRPC,RCSR 


; RECEIVER DONE NEVER SET"’ 
:"'TEST# ERR PC RCSR*’ 
;STESTN, SERRPC,.RCSR 


:’RCVR ACTIVE NOT CLEARED WITH DONE SET2 
:TEST# ERR PC _ RCSR"’ 
STESTN,SERRPC ,RCSR 


7’ RESET DID NOT CLEAR RCVR DONE*’ 
:"TEST# ERR PC  RCSR" 
STESTN,SERRPC,RCSR 
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FRROR POINTER TABLE SEQ 0031 
nas 002024 000000 0 
1173 002026 022510 EM67 ;'RDR ENABLE SET oie NOT CLEAR RCVR DONE"’ 
1174 002030 024064 DH6 ;''TEST# ERR PC RCSR 
1175 002032 024612 DT6 SSTESTN, SERRPC ,RCSR 
a 002034 000000 0 
1178 002036 022553 EM70 7, READING RBUF DID NOT Ci.EAR RCVR DONE"' 
1179 002040 024064 DH6 ;TEST# ERR PC  RCSR"' 
1180 002042 024612 DT6 :STESTN, SERRPC ,RCSR 
lee 002044 000000 0 
1183 002046 022620 EM71 :RCVR_ INTERRUPTS WITH ENABLE CLEAR’’ 
1184 002050 024064 DH6 S"'TEST# ERR PC RCSR’ 
1185 002052 024612 DT6 SSTESTN, SERRPC ,RCSR 
Bb 4 002054 000000 0 
1188 002056 022767 EM72 7’ RCVR DID NOT INTERRUPT"’ 
1189 002060 024064 DH6 7''TEST# ERR PC RCSR"' 
1190 002062 024612 DT6 :$TESTN,SERRPC,RCSR 
4 002064 000000 0 
1193 002066 022662 EM73 7’ RCVR_ INTERRUPTS AT PRIORITY 7°" 
1194 002070 024064 DH6 :'TESTA ERR PC  RCSR* 
1195 002072 024612 DT6 > STESTN, SERRPC ,RCSR 
OF 002074 000000 0 
1198 002076 022720 EM74 7" RCVR_ INTERRUPT REQUEST PASSED WITH ENABLE CLEAR’ 
1199 002100 024064 DH6 7"'TESTA ERR PC  RCSR*’ 
1200 002102 024612 DT6 :$STESTN, SERRPC ,RCSR 
102 °°" 
1203 002106 022767 EM75 :’RCVR DID NOT INTERRUPT"’ 
1204 002110 024064 DH6 :'TESTA ERR PC RCSR" 
1205 002112 024612 DT6 7 $STESTN,SERRPC,RCSR 
1206 002114 000000 0 
1207 002116 023016 EM76 3’ RECEIVER RE~INTERRUPTED"’ 
1208 002120 024064 DH6 :‘'TESTA# ERR PC RCSR* 
1209 002122 024612 DT6 > $STESTN, SERRPC ,RCSR 
ist 002124 000000 0 
1212 002126 023042 EM77 "READING RBUF DID NOT CLEAR INTERRUPT"’ 
1213 002130 024064 DH6 :''TEST# ERR PC  RCSR’ 
1214 002132 024612 DT6 SSTESTN,SERRPC,RCSR 
‘Siz 002134 000000 0 
1217 002136 023107 EM100 RESET DID NOT CLEAR RCVR INTERRUPT"’ 
1218 902140 024064 DH6 i''TEST# ERR PC RCSR’ 
1219 002142 024612 DT6 $TESTN, SERRPC ,RCSR 
1220 002144 000000 0 
1221 
1222 
1223 002146 023152 EM101 7'""OR* FLAG DID NOT SET" 
1224 002150 024064 DH6 


1225 002152 024612 DT6 S$TESTN, SERRPC ,RCSR 
000000 0 





oz 


-MAIN,. 


1228 002156 
1229 002160 
1230 002162 
31 002164 


ya ote 
RARAN 
x 
oad 
N 
—~m 


M=SSe A 


; 
1 
: 
; 
; 
: 
; 
1 
1 
1 
1 
1 


1 242 
1260 002244 
1261 

1262 002246 
1263 002250 
1264 002252 
1265 002254 
1266 

1267 002256 
1268 002260 
1269 002262 
1270 002264 
1271 

1272 002266 
1273 002270 
1274 002272 
1275 002274 
1276 

1277 002276 
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ERROR POINTER TABLE 


023647 
024064 
024612 


"ERROR" NOT SET WITH ‘OR’ FLAG'’ 
TESta ERR PC RCSR’ 
“ $TESTN, SERRPC ,RCSR 


;’ BREAK DID NOT TRANSMIT rare ZEROES** 
:"'TEST# ERR PC RCSR DAT 
;STESTN,SERRPC,RCSR, SBDDAT 


; | BREAK DID NOT ae FRAMING ERROR'’ 
;"'TESTA ERR PC RCSR 
> $STESTN, SERRPC ,RCSR 


;'' DATA COMPARE ERROR" 
:'‘TEST# ERR PC RCSR GOOD BAD"' 
7; STESTN,SERRPC,RCSR,GD,BD 


:'DATA COMPARE ERROR WITH CABiE"’ 
;''TESTA# ERR PC RCSR GOOD BAD" 
:STESTN, SERRPC,RCSR,GD,BD 


:'"TIMEOUT IN EXERCISER TEST"’ 
S"'TESTA ERR PC RCSR"' 
S$TESTN, SERRPC ,RCSR 


:""INCORRECT RECEIVE COUNT 
:""TEST# ERR PC RCSR TRANS — RCV"" 
;STESTN,SERRPC,RCSR,XMTCNT ,RCVCNT 


"DATA COMPARE ERROR IN a ag 


SOTESTH ERR PC RCSR GOOD 


;STESTN, SERRPC ,RCSR,GD,BD 


Pd sant ~ 


"TEST# ERR PC RCSR_ OLDPC TRAP ADR"' 


STESTN, SERRPC ,RCSR,OLDPC ,BDVECT 


:"NO CLK ga IN EXERCISER" 
TESTA ERR PC 
SSTESTN, SERRPC, iKs 


7, ERROR" NOT SET WITH *FR* FLAG" 
:"'TESTA# ERR PC RCSR"’ 
STESTN, SERRPC .RCSR 


RCV ACTVIE NOT Sys WITH INIT 
7""TEST# ERR PC RCSR 
STESTN,SERRPC,RCSR 


SEQ 0032 


e 
nN=z 
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ERROR POINTER TABLE SEQ 0033 
ee 002314 000000 0 
1287 002316 023706 EM116 RCV ACTIVE WITHOUT "START'’ BIT 
1288 002320 024064 DH6 :""TEST# ERR PC RCSR' 
1289 002322 024612 DT6 = $TESTN, S$ERRPC,RCSR 
if 3 002324 000000 0 
1292 002326 023745 —M117 ;RDR ENABLE NOT CLEAR WITH RCV ACTIVE 
1293 002330 024064 DH6 "TESTA ERR PC RCSR 
1294 002332 024612 DT6 “$TESTN, SERRPC,RCSR 
eye 002334 000000 0 
1297 STORAGE LOCATIONS 
1298 002336 000000 FIRST: . 
1299 002340 000000 LOC1: WORD TIMER LOOP COUNTER 
1300 000000 LeCc2 WORD 0 ; TIMER LOOP COUNTER 
1301 002344 000000 SAVEO WORD 0 “STORAGE FOR LOCATIONS 
1302 002346 SAVLOC: .BLKW 22 THAT [/E USES 
1303 002412 ENDSTK: .BLKW 10 + JIMS SPECIAL STACK (WRAP AROUND) 
1304 002432 000000 JIMSTK: .WORD 0 
1305 002434 0600000 SAVEPS: .WORD 0 SAVE PSW AREA 
1306 002436 000000 OLDSUM: .WORD 0 CHECKSUM STORAGE 
1307 002440 000000 RCVCNT: .WORD 0 
1308 002442 000000 XMTCNT: .WORD 0 
1309 002444 000000 CLKCNT 0 
1310 002446 000000 STPSW: .WORD 0 
1311 002450 000000 SRPSW: .WORD 0 
1312 002452 000000 SCPSW: .WORD 0 
1313 002454 BUF : BLKW 44 
1314 002564 020 000 CNTLP: .ASCIZ <20> 
1315 002566 136 120 000 PROMPT: .ASCII /*P/<0><CR><LF>/CONSOLE/<CR><LF >/>>>/<377> 
002571 015 012 103 
002574 117 116 123 
002577 117 114 105 
002602 015 012 076 
002605 076 076 377 
1316 002610 124 057 101. ‘TA: .ASCIZ $T/A$<CR><LF> 
002613 015 012 000 
1317 
1318 .EVEN 
1319 002616 000000 SECND: .WORD 0 
1320 00262C 000000 OLDPC: .WORD 0 
1321 002622 000000 BDVECT: .WORD 0 
1322 
1323 
1324 
1325 
1326 
1327 002624 000000 CTSTFL: .WORD 0 :CONSLE UNDER TEST FLAG 
1328 002626 000000 TMP1: . WORD 0 : TEMP LOCATION FOR TABLE OFFSETS 
1329 002630 600000 TMP2: WORD 0 TEMP LOCATION FOR DEVICE COUNT 
1330 002632 000000 TMP3: WORD 0 “LOCATION FOR DEVICE MAP BIT TEST MASK 
fF ;REGISTER AND VECTOR ADDRESSES FOR THE DL-11W UNDER TEST 
13233 002634 000000 RCSR WORD 0 
1334 002636 000000 RBUF : -WORD 0 
1335 002640 000000 TCSR: -WORD 0O 


o 
~~. 


-MAIN,. 


1336 002642 


Ww 
Ww 


EFELELEELE 
SOODNRARWN OS 
S 
S. 


VVIAWMUNYT 
WENN 
MmMNM 
aoe 
aL 


“i 


eh bata byte tar te taba 
NO 


58 Cv2702 


Vi 
ovo 
S 
™N 
N 
* 
in) 


8333s 
2° 


7 003044 


BESSRESSEISISSR INS 
8 
W 
R 
Oo 


SERB Re RRR REE SS SSS SSS SSE REE RRS R GURU AE BERR REFERERS 
S8S888sssss 


MACRO Mi111 
ERROR POINTER TABLE 


176506 


012702 
0 


002702 
176116 


000170 
000010 


000400 175774 
000006 000004 
000003 000006 
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CONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL~-11W 
ADDRESS OF RECEIVER COMMAND/STATUS REGISTER 


ADDRESS OF RECEIVER BUFFER 

ADDRESS OF TRANSMITTER Nyse atl REGISTER 
;ADDRESS OF TRANSMITTER BUFFER 

RECEIVER INTERRUPT VECTOR 


; TRANSMITTER INTERRUPT VECTOR 


oh TIME on AND VECTOR ADDRESSES 


TBUF -WORD OQ 

RVECT . WORD 0 

RPSw: -WORD 0 

TVECT: .WORD 0O 

TPSW: -WORD 0 

CRCSR: 177560 

CRBUF: 177562 

CTCSR: 177564 

CTBUF: 177566 

CRVECT: 6 

CRPSW: 62 

CTVECT: 64 

CTPSW: 66 

LK WORD 77 

RTT: “WORD 100 

RTCPSW: .WORD 102 

ADRTBL: .BLKW 20 

VCTTBL: .BLKW 20 

FLAG4S4: .WORD 0 

TURCSR: .WORD 176500 
F: .WORD 176502 

TUTCSR: WORD 176504 

TUTBUF: .WORD 176506 


; SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE 


;POINT R2 TO THE DEVICE ADDRESS TABLE 
;LOAD BASE DEVICE ADDRESS IN RO 


DEVADR: MOV 


1$: MOV 


START: or 


1$: MOV 


ae Tg 


° 


RO,R1 
#170,R1 
RO, (R2)+ 
#10,R0 

RO,R1 

$ 


PC 


$SFATAL 


#200. $USWR 
#6, 044 
#3. a6 


[POINT R1 TO LAST DEVICE ADDRESS 
:MOVE DEVICE ADDRESS TO TABLE 
POINT RO TO NEXT DEVICE ADDRESS 
FINISHED GENERATING TABLE? 


:BR, IF LAST DEVICE ADDRESS NOT LOADED 


CLEAR ERROR NO. 
CLEAR MESSAGE TYPE 
CLEAR TEST NO. 
;CLEAR CONSOLE UNDER TEST FLAG 
[CLEAR DEVICE COUNT 
; CLEAR UNIT NUMBER 
7** CLEAR 11/44 CPU FLAG 
71S $SUSWR LOADED? 
BR IF YES 


ELSE, DEFAULT TO S$USWR=400 
; INITIALIZE TIMEOUT VECTORS TO TRAP 
CATCHER ROUTINE 


SEQ 0034 


. 
-—-2 
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ERROR POINTER TABLE 


1393 
1394 


Ub a4; 
1396 


1397 
1398 003376 
99 005402 


1408 003442 


012767 


013746 


012637 
005067 
132767 
001403 
012767 


013746 
012737 
000007 
122700 
001007 
052737 
000403 
012716 
000002 


012637 
032777 
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001000 
001040 
001000 
015272 
000340 
014576 
000340 
017246 
000340 
015114 
000340 
011172 
175614 
000001 


177777 


003334 
000176 
000174 
000004 
175514 
000200 


001110 


000010 
003430 


000001 
000001 
003436 


000010 
000020 
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011162 
175543 


175516 


175476 
175472 


175521 
175442 


000010 


003002 


175370 


-SBTTL 
7-CLEAR THE C 
MOV 


-SLPERR UP 
7s SIZE FOR A HARDWARE stan REGISTER. IF NO 


64$: 
65$: 
66$: 


INITIALIZE THE COMMON TAGS 
OMMON TAGS (S$CMTAG) AREA 


#SCMTAG,R6 


3sFIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
3zSETUP THE STACK POINTER 


MSSCOPE , a#IOTVEC Bt Ag ee FOR SCOPE ROUTINE 


C $f evel VECTOR FOR ERROR ROUTINE 
ee TRAP VECTOR FOR TRAP CALLS 


a 
#340, @#TRAPVEC+2;LEVEL 7 
#SPWRDN , @APWRV 


C — VECTOR 


ETUP END-OF -PROGRAM COUNTE 
:3CLEAR THE ESCAPE ON ERROR ADDRESS 
;ALLOW ONE ERROR PER TEST 


A SOFTWARE SWITCH REGISTER. 


VECTOR 
; FOR A HARDWARE SWICH REGISTER 
:¢AND A A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
: 7BRANCH IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 
BRANCH IF NO TIMEOUT 
SISET UP FOR TRAP RETURN 


Falta TO SOFTWARE SWR 
;;RESTORE ERROR VECTOR 
;CLEAR PASS COUNT 


TEST USER SIZE e APT 
YES,USE NON-APT SWITCH 


CLR (R6)+ : 
CMP WSR, R6 ;;DONE? 
BNE 
MOV 1000, SP 
cmchhee A FEW VECTORS 

MOV #340, aviorvecee sel 
MOV #SERROR , a#EMTV 
MOV #340, a¥EMTVEC+2 +s LEVE 
MOV STRAP, AA TRAPVEC 
MOV 
MOV 
MOV #340, a#PWRVEC+2 :sLEVEL 
MOV SENDCT , SEOPCT 
CLR SESCAPE 
MOVB #1, SERMAX 
MOV a. one 
MOV #. 

EQUAL TO A ‘-1°*, SETUP F 
MOV @#ERRVEC ,-(SP) 
MOV #64$, AHERRVEC 
MOV ADSWR ,SWR 
MOV #DDISP,DISPLAY 
CMP #~-1 ,aSWR 
BNE 66$ 
BR 65$ 
MOV #65$, (SP) 
RTI 
MOV ASWREG , SWR 
MOV #DISPREG DISPLAY 
MOV (SP) +, @#ERRVEC 
CLR $PASS 
BITB MAPTSIZE,SENVM 
BEQ 7$ 
MOV ASSWREG , SWR 


67$: 


10$: 
11$: 


SIZE FOR 11/44 CPU 


MOV 


a#10,-(SP) 
#10$,a410 


#1,RO 

#1 ,@AFLAGSS 
11$ 

#11$, (SP) 


(SP)+,a410 
#B1T4,aSWR 


INO. WSE APT SWITCH REGISTER 


wn save VECTOR 


WHA 
xx ARE WE A 11/44 
** NO GO ad oH VECTOR 
xx YES 7 LAG 
SKIP RTI. 
SET STACK RETURN 
RETURN 


* RESTORE VECTOR 
“TEST CLOCK ONLY? 


ss 
se 


ee. cena aeenen st 


SEQ 0035 
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INITIALIZE THE COMMON TA 


ed td ed od td 


colt ld anil cal call cal cal all anh wild 
BERR S 
SOMNANRWH=O 


ed aed 
RARER 
tate) 
WN 
8838 
WWW 
MII 
EWN 
ONAN 


1436 003616 


1460 12 
1461 003714 
1462 003720 
pe > 003722 


1085 


010337 
000415 
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GS 


177146 
001136 
000001 
000200 
000040 


177276 
177106 
175416 
000004 
003562 
175376 
000160 


175366 
177046 


001000 
175352 
000010 
175340 


177044 
003630 


175320 
177000 
000004 


176766 
175276 
176752 


177124 


002742 
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175416 
175407 
175330 


000004 


000004 


3$: TST 


4$: MOV 


5$: MOV 
APTSZD: CLR 
TSTDVM: TST 

BP 
1$: ASL 


BR 
DVADT: JSR 


;GENERATE VECTOR ADDRESS TABLE 
VCTADR: MOV 
MOVB 


INIT 
CTSTFL 


ID 
#B1T0,$ENV 
MANL 
#B1T7,SENVM 
APTSZD 
#B1TS ,aSWR 
APTSZD 


PC,DEVADR 
TMP2 


PC ,DEVADR 


#VCTTBL, ne 
aWSVECTILR 
#177400,R0 


SEQ 0036 


;BR_IF NOT 
ELSE, SET CONSOLE TEST FLAG TO ENABLE CLOCK TESTS 
AND JUMP yO Ne PROGRAM 1D 


7BR 

;DID APT SIZE 

:BR, IF APT SIZED 

WAS ‘‘SDEVM'" MANUALLY SET? 
:IF YES, SKIP SELF=SIZING 


GENERATE DEVICE ADDRESS TABLE 

;CLR TEMP LOCATION TO KEEP DEVICE COUNT 
[CLEAR DEVICE MAP 

SAVE TIMEOUT VECTOR 

:SET of at As. POINTER 


BASE ADDRESS 
BOINT RO TO UNIT 415 son Si CONSOLE ) 
CHECK FOR DEVICE EXISTAN 
S INDICATE DEVICE EXISTANCE IN DEVICE MAP 


a i DEVICE MAP FOR NEXT UNIT CHECK 
POINT RO TO NEXT DEVICE NUMBER 


FINISHED SIZING? 
; RESS HAS NOT BEEN CHECKED 
DRESS 


STEST FOR CONSOLE EXISTANCE 

INDICATE CONSOLE EXISTANCE IN DEVICE MAP 
S INCREMENT DEVICE COUNT 

RESTORE TIMEOUT VECTOR 


;BR TO GENERATE VECTOR ADDRESS TABLE 
;CLEAR TEMP LOCATION TO KEEP DEVICE CNT 
SMOVE DEVICE MAP TO R2 
; TEST MSB OF DEVICE MAP 
7BR, IF MSB IS ZERO 
: INCREMENT DEVICE COUNT, IF MSB=1 

SHIFT NEXT BIT INTO MSB POSITION 

IF NO OTHER BITS ARE SET IN SDEVM 


"BR, 
SCONTINUE CHECKING $DEVM, IF MORE BITS SET 
GENERATE DEVICE ADDRESS TABLE 


;GET LOCATION OF VECTOR TABLE 
COPY BASE VECT 

;CLEAR BYTE SIGN EXTENSION 
“POINT R1 , vow DEVICE VECTOR 
;PUT V S_IN TABLE 


SFINISHED GENERATING VECTOR TABLE? 
7BR, IF LAST VECTOR IS NOT LOADED 


:MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE 


oe Re sed 


_" 
2 
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INITIALIZE THE 


1466 
1467 003724 
1468 730 


1482 003770 
1483 


1484 
1485 003774 
1486 002 


So 
Ww 


te a es st ss od tt SI 
MAMAMAAMA AAMT 1 
SSananrwn=o N 
abva) mnmo—— 
ERSRVK RSEVRVESKS 


MN 
m= 
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COMMON TAGS 


016700 
001 


001764 
010167 


052767 
005067 


176700 


000060 
000020 
020546 


002652 
000122 


176556 
176546 
000002 
175002 
174774 
176522 
apsons 


00000 
002702 
002634 


000002 
000006 


002742 


000002 
000006 


000000 


176630 
175130 


175066 


176534 


176504 
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MOV TMP2 ,RO 

CLR R1 

SWAB RO 

ASL RO 

ASL RO 
SHIFT: ASL RO 

ROLB R1 

ASL RO 

ROLB R1 

ASL RO 

ROLB R1 

ADD #60,R1 

SWAB 1 

BIT #BIT4,R1 

BEQ SHIFT 

MOV R1,M2A 
BEGIN: BIS #B1T1,TMP3 

CLR TMP 1 

BIT #B1T0,$DEVM 

BNE TCONS 

BR TSTDEV 
TCONS: INC CTSTFL 

MOV rales yl RO 

MOV #RCSR, 
1$: MOV (RO) +, iR1)+ 

CMP ATPSW,R1 

BGE 1$ 

JMP TST1 
PREPARE ADDRESSES AND — FOR UU 
TSTDEV: BIT TMP3 ,$DEVM 

BNE SETADR 

ASL TMP3 

ADD #2,1MP1 

INC SUNIT 

BR TSTDEV 
SETADR: INC SUNIT 

ASL TMP3 

MOV ing FP 

ADD #2,T 

MOV ADRIBL (R2). RO 

MOV #RCSR,R1 
ADR: MOV RO, (R1)+ 

ADD #2,RO 

BIT RO,#6 

BNE ADR 

MOV VCTTBL(R2) ,RO 
VECT: MOV RO, (R1)+ 

ADD -RO 

BIT RO ,#6 

BNE VECT 

JMP TST1 


° 


;COPY DEVICE COUNT INTO RO 
SCLEAR AUXILARY REGISTER 


;PUT DEVICE COUNT 1 INtD UPPER BYTE OF RO 


:MOVE MSB OF COUNT 
F RO 


0 
;PUT MSB OF COUNT INTO CARRY 
;MOVE MSB OF COUNT INTO R1 
s;MOVE NEXT BIT TO CARRY 
;MOVE INTO R1 
sMOVE LAST BIT OF DIGIT 
; INTO R1 
; CONVERT DIGIT TO gh 
;MOVE DIGIT TO UPPER 


BYTE 
;HAVE BOTH DIGITS BEEN MOVED TO R1? 
BR, _IF NOT 
SMOVE DEVICE COUNT TO OUTPUT MESSAGE 


SEQ 0037 


;SET UP BIT MASK TO TEST $SDEVM FOR DEVICES EXCEPT CONSOLE 


:CLEAR LOCATION TO STORE | TABLE OFFSETS 


HINDICATE CONSOL 
SET UP CONSOLE DEVICE ADDRESSES 
:POINT R1 TO UUT 


E UND 


ADDRESS TABLE 


; TRANSFER pee Mantes 


FINISHED TRANSF 


BR, IF NOT 
:GO TEST CONSOLE INTERFACE 


:CH ECK TO) SEE IF DEVICE IS TO BE TESTED 
SHIFT MASK TO yg _ SDEVM BIT 


; INCREMENT TABLE IND 


; INCREMENT UNIT 


NUMBER 
:GO TEST NEXT BIT OF DEVICE MAP 


UPDATE UNIT 


NUMBER 
[UPDATE DEVICE MAP TEST MASK 
MOVE TABLE OFFSET TO R2 


UPDATE TABLE OFFSET FOR NEXT DEVICE 
[PUT UUT ADDRESS INTO R 
[POINT R1 TO STORAGE AREA FOR UUT ADDRESSES 


IN 


; TRANSFER UUT ADDRESS 
:POINT TO NEXT Ae REGISTER 


’ 


FINISHED TRANSFER? 
BR, IF NOT 


;PUT UUT VECTOR INTO RO 


; TRANSFER UUT Warten TO ACTIVE TABLE AREA 


[POINT TO NEXT 


FINISHED TRANSFER? 
BR, IF NOT 
[GO TEST DEVICE 


. 
—_ 2 
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INITIALIZE THE COMMON T SEQ 0038 
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INITIALIZE THE COMMON T 


1526 
1527 
1528 


—3 eS eS es SS SY SS 
BAAN AAAI AS 
SBIKALANSSS 
= 
* 


1547 004252 


00 
000412 


004767 
00000 


000000 
010337 


004214 
176426 


176402 


011226 


000004 


000004 
004266 
176356 


176330 


011154 


000004 


000004 


000004 
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SINR R RRR k he Ra ke Rekeke hehehehe hahahakata he lehahahahahelalelelehaiahaiehelelelelsisislelalalaieieleieielishaleieialeieielele 


s*TEST 1 TEST ABILITY TO REFERENCE TCSR 
CLARA ARR E ERA ERREREREREAER ARR ERA RRR EERE EH 
TST1: SCOPE 
MOV a4 ,R3 ;SAVE TIMEOUT VECTOR 
MOV #1$,a044 ;SET UP TIMEOUT VECTOR 
TST aTcsR ;REFERENCE THE XMIT COMMAND/STATUS REG. 
BR 4$ ; GO TO END OF TEST 
1$: CMP (SP) +, (SP)+ ;RESTORE SP AFTER TIMEOUT 
TST CTSTFL 4 IF DEVICE IS CONSOLE 
BNE 2s F YES, SKIP ERROR TYPEOUT 
ERROR+1 ;REPORT ERROR T0 APT & TTY 
- BR 4$ ;BR TO END OF TEST 
JSR PC, SATY4 ZZ ONLY REPORT A FATAL ERROR 
1 7; THE ERROR NUMBER (FROM APT LIST) 
3$: HALT 
4$: MOV R3,a044 ;RESTORE TIMEOUT VECTOR 
FL AREER ERE ERE EEE EERE EERE EEE ERE RE RE REE EREREKERE KER 
*TEST 2 TEST ABILITY TO REFERENCE TBUF 


SRR REE RE REKEEEKEER EEE EE REE E KER 


TST2: SCOPE 


MOV ars ,R3 :SAVE TIMEOUT VECTOR 
MOV #1$. a4 ‘SET UP TIMEOUT VECTOR 
TST aTBUF “REFERENCE THE XMIT BUFFER 
BR 4$ ‘GO TO END OF TEST 
1$: CMP (SP) +, (SP)+ :RESTORE SP AFTER TIMEOUT 
TST CTSTFL ‘CHECK IF DEVICE IS CONSOLE 
BNE 2$ ‘IF YES, SKIP ERROR TYPEOUT 
ERROR+2 :REPORT ERROR TO APT & T 
‘ BR 4$ :BR TO END OF TEST 
’ JSR PC, SATY4 ::ONLY REPOR? A FATAL ERROR 
. 4 THE ERROR NUMBER (FROM APT LIST) 
: H. 
4$: MOV R3, ans :RESTORE TIMEOUT VECTOR 


SEQ 0039 





ee od ad 8 


004350 
1573 004352 
1574 
1575 004354 
1576 004362 
1577 004370 
1578 
1579 004372 
1580 
1581 004374 
1582 004402 
1583 004410 


1584 
1585 004412 
86 16 
1589 004424 
004424 
004430 
1590 004432 
1591 
1592 004434 
1593 004442 
1594 004444 
1595 004452 
1596 
1597 004454 
1598 004462 
1599 
1600 
1601 004464 
1602 


004466 
1603 004470 
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111 
LITY TO REFERENCE TBUF 


000005 
032777 
001414 


005767 
001002 
104015 
000404 


052777 
032777 
001001 
104016 
042777 


032777 
001411 


052777 
000005 
032777 
001404 
042777 
104020 


000240 


000004 


176266 


011112 


000004 
000004 


000004 


000004 


176206 


011032 


000004 


000004 


000004 


000004 
176140 
176132 


176310 


176256 
176250 


176236 
176230 


176176 
176166 


176156 


176142 


SL RARER RAHA EEE REE AERERRREREAEEEERRERREERREERAEE EERE RR EERE 


TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 


VERSE SASASASRASALARLASASRASALE SES SSASE LARA SERA RS ARERR SAAR RARE D SSS 


;CLEAR EVERYTHING 
;TEST FOR BIT2 OF TCSR CLEAR 
[BR IF CLEAR 


CHECK IF DEVICE IS gag 
;IF YES, SKIP ERROR TYPEOUT 
:BIT2 OF TCSR NOT CLEAR AFTER RESET 


;;0NLY REPORT A FATAL ERROR 
3; THE ERROR NUMBER (FROM APT LIST) 


;SET BIT2 OF TCSR 
TEST FOR BIT2 SET 
IF SET 


;BiT2 OF TCSR WILL NOT SET 


CLEAR BIT2 OF TCSR 
TEST BIT2 CLEAR 
:BR IF CLEAR 


;CHECK IF DEVICE IS CONSOLE 
:IF YES, SKIP ERROR TYPEOUT 


ay REPORT A FATAL ERROR 
THE ERROR NUMBER (FROM APT LIST) 
;BITO OF TCSR WILL NOT CLEAR 


;SET BIT2 OF TCSR 


CLEAR BIT2 WITH RESET 

TEST FOR BIT2 CLEAR 

:** IF CLEAR, GO TO NEXT TEST 
CLEAR BIT2, TO PRINT ERROR 
;RESET DID NOT CLEAR BIT2 OF TCSR 


"ae 
. 


WEROeSSSSREERASSESESSSASESASASES ER RSE ARS ASSES ARR AR ARR ASRS ASS A ES SS 


STEST 3 
TST3: SCOPE 
RESET 
BIT #BIT2,aTCSR 
BEQ 3$ 
TST CTSTFL 
BNE 1$ 
ERROR+15 
BR 3$ 
1$: 
SR PC, SATY4 
2s: HALT 
38: BIS #BIT2,aTCSR 
BIT #BIT2,aTCSR 
BNE 4$ 
ERROR+16 
4$: BIC ABIT2,aTCSR 
BIT #B1T2,aTCSR 
BEQ 7$ 
TST CTSTFL 
BNE $ 
ERROR+17 
BR 7$ 
5$: 
JSR PC, SATY4 
6$: HALT 
7$: BIS #BIT2,aTCSR 
RESET 
BIT #BIT2,aTCSR 
BEQ 10$ 
BIC #BIT2,aTCSR 
ERROR+20 
10$: 
S*TEST 4 


TST4: 


TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 


CLARE AREER EERE REE REE REEE ERE ERE ERE REE EERE RARER EERE KKK 


C 
BIS #B1T2,aTCSR 
aTBUF 
TSTB aTcsR 
3$ 


7** ENABLE MAINT. WRAP 


;LOAD XBUF 


: CHECK DONE 
;BR IF CLEAR 


. 
-_2 


14 
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TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 


mn m-- 


* VWI WU 


B28 S82 S82 


www 


42 
004542 


1628 004574 


1629 004602 

1630 004604 

1631 004606 
004606 
004612 

1632 004614 

1633 004616 

1634 

1635 

1636 

1637 004620 

1638 004620 


1639 004626 
640 34 


1653 004676 


005077 
105777 
100014 
005767 


001005 
042777 


042777 


023737 


176126 
176120 


176076 


000004 


010714 


176060 


176032 
000004 


010650 


000004 


000042 
174232 
174226 


000020 
000640 


176122 


2$: 
4$: 


176056 


5$: 


176032 


000046 


174150 6$: 


ENDB7: 


CLR 
TSTB 
BPL 


TST 
BNE 
BIC 


ERROR+3 
BR 3$ 


ERROR+4 
BR ID 


JSR 
4 
HAL T 
BR 


FILL SECOND we? BECAUSE REFRESH COULD CAUSE 
: FIRST TEST TO FAIL 
BUFFER 


@TBUF sFILL DOUBLE 
aTiSR ;CHECK DONE 
3$ :BR IF CLEAR 
CTSTFL : CHECK IF DEVICE IS CONSOLE 
1 YES, SKIP ERROR TYPEOUT 
#BIT2,aCTCSR tee DISABLE MAINTENANCE MODE FOR 

tie CONSOLE TO ead FOR COMMUNICATION 

WITH TERMINA 
: DONE No? “CLEARED WITH BUF FULL 
;BR TO END OF TEST 


PC, SATY4 > REPORT A FATAL ERROR 
THE ERROR NUMBER (FROM APT LIST) 

i: TCSR “DONE NOT CLEARED WITH TBUF FULL 
:CLEAR TIMER 

aTCSR CHECK FOR XMIT DONE 

D :IF DONE SETS, BR TO END OF TEST 

RO TINCREMENT TIMER 

4$ BR IF TIMER NOT DONE 

i ie CHECK IF DEVICE IS CONSOLE 

ABIT2,aCTCSR see * DISABLE MAINTENANCE MODE FOR 


CONSOLE TO ALLOW FOR COMMUNICATION 
pee « WITH TERMINAL . 
;TCSR ‘'DONE’’ DOES NOT SET 
;BR TO END OF TEST 


SEQ ‘dae | 


PC,$ATY4 ;;O0NLY REPORT A FATAL ERROR 
3; THE ERROR NUMBER (FROM APT LIST) 

ENDB? ;** BR TO NEXT TEST, 

;** AND SKIP THE TYPEOUT THAT FOLLOWS 

;** BECAUSE OF THIS FAILURE 
#BIT2,aCTCSR ;** DISABLE MAINTENANCE MODE FOR 

* CONSOLE TO ALLOW FOR COMMUNICATION 

tee WITH TERMINAL. 
B42 ,a446 UNDER ACT11? 
$ IF YES, SKIP_ IDENT. TYPEOUT 
$PASS :1S THIS THE FIRST PASS? 
6$ :IF NOT BR TO NEXT TEST .. weet THE IDENTIFICATION TYPEOUTS 
SDEVCT 21S THIS THE fs: 7 sig 
6$ F NOT, BRTO NEXT TEST 

TYPE PROGRAM INDENTIFICATION 

; TYPE NUMBER OF DEVICES UNDER TEST 
#BIT4,aSWR CLOCK TEST ONLY? 
ENDB7 ;** BR IF NOT 
TCLOCK SELSE, JUMP TO TEST CLOCK 


RO ;** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 


2 
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we 








TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED T 


012701 000002 ; THAT MIGHT BE IN THE PROCESS OF BEING 
005300 40$: ;** TRANSMITTED TO FINISH BEFORE MAINTENANCE 
WRAP FOR THE UART UNDER TEST IS DISABLED. 
THIS WILL INHIBIT ANY COMMUNICATION 
TO HARDWARE MEDIA SUCH AS TUS8 THAT MIGHT 
BE ATTACHED TO UART UNDER TEST. 
| 
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TEST THAT TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED SEQ 0043 


188 

1657 fF ARAAERARAAAARARAHAAAAAARAARAARAAAAAAOKAARAAARAAAARAAARERAAAA AHS 
s*TEST 5 TEST THAT TCSR 'DONE’’ SETS WITH RESET 
FE URRRAARAAAAAARRERARAREEAARRAREEARARRRARRRAAARARAARRAERRAREHREEE ED 

004714 000004 TSTS: SCOPE 

1658 004716 952777 000004 175714 BIS #BIT2,aTCSR ;** ENABLE MAINT. WRAP 

1659 004724 005077 175712 CLR @TBuF :LOAD TRANSMIT BUFFER 

1660 004730 105777 175704 1$: TSTB aTcsR sWAIT FOR DONE 

1661 004734 100375 BPL 1$ 

1662 004736 005077 175700 CLR aTBuF ;LOAD SECOND BUFFER 

1663 004742 000240 NOP 

1664 004744 000005 ReSET ;CLEAR DONE WITH RESET | 

1665 004746 105777 175666 TSTB arcsR sCHECK FOR DONE SET 

rg 004752 100401 BM! 10% ;** BR TO NEXT TEST IF DONE SET 

Hes 004754 104005 ERROR+S ;TCSR 'DONE’' DOES NOT SET WITH RESET 

1670 004756 000240 10$: NOP pee 

1671 

1672 

1673 CERT ARAAERAARERAEEAAREAAEREARARARRARRAERARORAERAERRAAERAARAAARAERRAH EAH ES 
s*TEST 6 TEST ABILITY TO ACCESS RCSR 
SF RAAAARRA AREER ERRAEERERERRRERRERRARAAEEAERAERARERRANARER ERR EH 

004760 000004 TST6: SCOPE 

1674 004762 013703 000004 MOV a4 ,R3 sSAVE TIMEOUT VECTOR 

1675 004766 012737 005002 000004 MOV 41%, 044 :SET UP TIMEOUT VECTOR 

1676 006774 005777 175634 TST @RCSR sACCESS RCSR 

yg 005000 000402 BR 2$ ;BR TO END OF TEST 

1679 005002 022626 1$: CMP (SP)+,(SP)+ sRESTORE SP AFTER TIMEOUT 

1680 005004 104006 ERROR+6 7CAN NOT ACCESS RCSR 

1681 005006 010337 000004 2$: MOV R3,a44 ;RESTORE TIMEOUT VECTOR 


| 





-MAIN. MACRO M1 
17 TEST ABI 


3s 
S 


S888888 8 


5126 


nk th el td lh cad nd ae ead cat anh eel ca ani ae eel cal et acid 
NNN NNN NON NN NNN NON OSV 

Me eS SS Se HS SS Ss oO 
SOONAUESWN-O 


8s 
ab aboa! 
— — 
WW 
oo 


gs 
8 


1722 
1723 005140 
1724 005146 
1725 005154 
1726 
1727 005156 
1728 
1729 005160 


00 
1737 005216 
1738 
1739 005220 


1745 005250 


11 
LI 


001462 


052777 
032777 
001001 
104012 
042777 
032777 
001411 
005767 
001002 
104013 
000404 
004767 
000013 
000000 


052777 
000005 


000240 
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000400 
000001 
175532 


000010 


000001 
175502 


010326 


000001 
000001 


000001 
000001 


175422 


010246 


000001 
000001 
000001 
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173764 
175716 


173736 


175524 


175472 
175464 


175452 
175444 


175412 
175402 
175372 


WReSeeSeRRRERSSSSSRERSRASASAS SR RRR RSE RRR SERRA RR RASA RRR RRR ERR SRS E SDS 


S*TEST 10 


TEST THAT BITO(BREAK BIT) CAN BE SET & CLEARED & RESET 


TIARA RAE EKAE ERATE RARER RRAR EERE EH 


TST10: 


9$: 


4$: 


5$: 


6$: 
7$: 


10$: 


SCOPE 
BIT #BIT8,aSWR 
BEQ 1 
BIT #BITO,FLAG4S 
BEQ 9 
toe CTSTFL 
BEQ 9$ 
BIT #B1T03,aSWR 
BEQ 10$ 
RESET 
BIT #BITO,aTCSR 
BEQ 3$ 
TST CTSTFL 
E 1$ 
ERROR+11 
BR 3$ 
tf PC,$SATY4S 
HALT 


BIS #B1TO,aTCSR 
BIT #BITO,aTCSR 
4$ 

ERROR+12 


BIC #BITO,aTCSR 
BIT #B1TO,aTCSR 
Q 7$ 


TST CTSTFi 

E 5$ 
ERROR+13 
JSR PC, SATY4 
13 
HAL T 


BIS #B1T0,aTCSR 
BIT #B1T0,aTCSR 
10$ 
SUA 


31S BREAK FUNCTION ENABLED? 
3;** BR TO NEXT TEST, IF NOT 
z** IS THIS A 11/44 


NO 
tae Mf THIS IS 11/44. IS THIS THE CONSOLE 
; LU 


7** NO 
3** THIS IS THE CONSOLE SLU.SHOULD THE BREAK 
77 + BE PERFORMED 

N 


; CLEAR EVERYTHING 
;CHECK BITO OF TCSR CLEAR 
:BR IF CLEAR 


;BITO WAS NOT CLEAR AFTER RESET 


;ZONLY REPORT A FATAL ERROR 
3; THE ERROR NUMBER (FROM APT LIST) 


SET BITO IN TCSR 
TEST BITO OF TCSR 
;BR IF SET 


;BITO OF TCSR WILL NOT SET 


;CLEAR BITO OF TCSR 
TEST BITO OF TCSR 


;BITO OF TCSR WILL NOT CLEAR 


7; ONLY REPORT A FATAL ERROR 
3; THE ERROR NUMBER (FROM APT LIST) 


4 2¥ BITO_IN TCSR 
CLEAR BITO WITH RESET 
TEST BITO CLEAR 
;** BR IF CLEAR 
[CLEAR BITO, TO PRINT ERROR 


=RESET DID NOT CLEAR BITO OF TCSR 


SEQ 0045 
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TEST THAT BITO(BREAK BIT) CAN BE SET & CLEARED & RESET 


SEQ 0046 


nw 





MACRO M1111 






00 

104021 
000402 
022626 
104022 
















052777 
78 324 032777 
aa 005332 001001 






















104024 





1777 005354 
1778 








1779 
1780 005356 
1781 005364 






001401 
104025 








1783 005374 
1784 
1785 005376 
1786 
1787 005400 









052777 
000005 
1782 005366 032777 


010377 





175366 
005312 
007244 


000100 


000100 


000100 


000100 
000100 


000100 
000100 


175244 
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175360 


175334 


175254 
175244 












Wee SPARSE SRERASRAASASARRRRRRRRRRARRRAR ERAS AR ARAR ASA S RRA R RSS S SD DG 


s*TEST Vi TEST THAT BIT6(XMIT INT EN) CAN BE SET & RESET 
SERA EEEERREE EERE ARERR EAREEERERRREE RARER RH 
TST11: SCOPE 

RESET ;CLEAR EVERYTHING 

MOV aTVECT,R3 SAVE XMIT VECTOR 

MOV #1$,aTVECT ;SET UP INTERRUPT VECTOR FOR ERROR REPORT 

JSR PC ,WRPSW SET PSwW TO PRIORITY=7 

.WORD 340 

BIT #BIT6,arCSR i TEST git OF TCSR 

BEQ 2$ :BR IF ZERO 

ERROR+21 

;B1T6 IN TCSR NOT CLEAR AFTER RESET 
BR 2$ 


1$: CMP (SP)+, (SP) + 
ERROR+22 


;RESTORE SP AFTER INTERRUPT 
XMIT INTERRUPT OCCURRED PRIO=7 


es: BIS #B1T6,aTCSR :SET BIT6 OF TCSR 
BIT #B1T6,aTCSR ; TEST BIT6 OF TCSR 
BNE 3$ :BR, IF SET 


ERROR+23 
; CANNOT SET BIT6 OF TCSR 


3$: BIC #BIT6,aTCSR ;CLEAR BIT6 OF TCSR 
BIT ABIT6,aTCSR ; TEST BIT6 OF TCSR 
BEQ 4$ ;BR IF CLEAR 
ERROR+24 


; CANNOT CLEAR BIT6 OF TCSR 


4$: BIS #B1T6,aTCSR SET BIT6 OF TCSR 
RES ;CLEAR BIT6 WITH RESET 
BIT #BIT6,aTCSR ; TEST BIT6 OF TCSR 
BEQ 5$ 7;BR IF CLEAR 


ERROR+25 
MOV 


; CANNOT CLEAR BIT6 OF TCSR WITH RESET 


R3,aTVECT SRESTORE XMIT VECTOR 





4 
SEQ 0047 
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TEST THAT BIT6(XMIT INT EN) CAN BE SET & RESET 


1789 
1790 
1791 


38 
S 
8 


S3SIs32 
g 
s 


SS8S fe +] 
oO 

SSSSSSS 
S$ 88 8 
Ww Wu Ww 
&S ye P 
Ww Po P 
oO Os 


ek ek a ak a at os a 0d SS oo ot a os a 
Ww 
es 
o 


0 00 00 Cd C0 00 C0 00 00 Co 
eee es a od 2 oJ J 


WOBNAULSWNM—O 
Ww 
™ 
™~ 
Oo 


000402 
022626 
104027 


052777 
032777 
001001 
104030 
042777 
032777 
001401 


104031 


052777 
000005 


032777 
001401 


104032 
010377 


175230 
005444 
007112 


000100 


000100 
000100 


000100 
000100 


000100 
000100 


175106 


175222 


175176 


175116 
175106 


SLR ERR EERE RRR REE EREE RR EREREEERERREERE 


TEST THAT BIT6 OF RCSR CAN BE SET & RESET 


WES S GRAS ESAS E SESSA SARSARRSE SARA RS RARE SAR ASRS ERR RAR SARS SSDS SOS 


S*TEST 12 

TS112: SCOPE 
RESET 
MOV ARVECT,R3 
MOV #1$,aRVECT 
JSR PC, WRPSW 

. WORD 340 

BIT #B1T6,aRCSR 
BEQ 2$ 
ERROR+26 
BR 2$ 

1$: CMP (SP)+, (SP)+ 
ERROR+27 

2$: BIS #B1T6,aRCSR 
BIT #B1T6.aRCSR 
BNE 3$ 
ERROR+30 

3$: BIC #B1T6,aRCSR 
BIT #B11T6,aRCSR 
BEQ A$ 
ERROR+31 

4$: BIS #B1T6,aRCSR 
RESET 
BIT #B1T6,aRCSR 
BEQ 5$ 
ERROR+32 

5$: MOV R3,aRVECT 


CLEAR EVERYTHING 

SAVE RECEIVE VECTOR 

;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
SET PSwW TO PRIORITY=7 


; TEST BIT6 OF RCSR 
;B1T6 OF RCSR NOT CLEAR AFTER RESET 


;RESTORE SP AFTER INTERRUPT 
zRCVR INTERRUPT WITH PRIORITY=7 


:SET BIT6 OF RCSR 
; TEST BIT6 OF RCSR 
;BR, IF SET 


; CANNOT SET BIT6 OF RCSR 


;CLEAR BIT6 OF RCSR 
TEST BIT6 OF RCSR 
;BR, IF CLEAR 


; CANNOT CLEAR BIT6 OF RCSR 


SET BIT6 OF RCSR 

:CLEAR BIT60F RCSR WITH RESET 
;TEST BIT6 OF RCSR 

7;BR, IF CLEAR 


e 


CANNOT CLEAR BIT6 OF RCSR WITH RESET 
RESTORE RECEIVE VECTOR 


SEQ 0048 


-MAIN, MACRO M1111 


20-SEP-79 


Ti2 TEST THAT BIT6 OF RCSR 


1831 
1832 005536 
1833 


005544 
1834 005546 
005552 
005554 
005562 
1835 005564 


5 
1638 005670 
1888 005672 
1859 005674 
1860 
1861 
1862 005676 
1863 005704 
1864 005712 
1865 
1866 005714 
1867 
1868 
1869 005716 
1872 005734 


005736 
1878 005744 


012767 


022626 
104010 


010337 


000402 
022626 
104034 
052777 
032777 
001001 
104035 


052777 
000005 


000012 


175052 
000100 


000004 
005604 
175072 


000004 


175002 
000100 


175034 
005672 
006664 


000100 


000100 
000100 
000100 


000100 


000100 
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173236 


173256 


000004 


173206 


775026 


175010 


174770 
174762 


174750 
174742 


174730 


;ADJUST TEST NUMBER TO (NEXT TEST =- 1) 


DS ICIS OIIOISISIIIOIIOISIOOISIDISISIOUITIOISIOI III IIIT I TTT TTI TRIE 


TEST ABILITY TO ACCESS LKS 


MASS RALAALSES 2 E SERRE SARARSSESAS AS ESA SESSA SAAS A RAR SRR SERRE SSS 


:1S CONSOLE UNDER TEST? 
;1F NOT, SKIP THIS TEST 
ARE LINE ye TESTS INHIBITED? 
:1F YES, SKIP THIS TEST 
; SAVE TIMEOUT VECTOR 
;SET_UP TIMEOUT VECTOR 
SACCESS LKS 
;NO TIMEOUT - BR TO END OF TEST 


;RESTORE SP AFTER TIMEOUT 
CAN NOT ACCESS LKS 


RESTORE TIMEOUT VECTOR 


WEARS ASRAASAASAALASLASLASASASSASARSAASARL ESAS SSAS ALARA ARRAS AL AS SSS SS 


TEST THAT BIT6 OF LKS CAN BE SET & RESET 


DD RI RI I III IK IK IK RIKER RRR RE RE IKE KEKE 


TCLOCK: MOV #12,$TSTNM 
ATEST 13 
1S113: SCOPE 
TST CTSTFL 
BEQ TST14 
BIT #BIT6,aSWR 
BNE TST14 
MOV ars ,R3 
MOV #1$ ans 
TST aks 
BR 2$ 
1$: CMP (SP) +, (SP)+ 
ERROR+10 
2$: MOV R3, a4 
TeTEST 14 
1S114: SCOPE 
TST CTSTFL 
BEQ TST15 
BIT #BIT6,aSWR 
E TST15 
RESET 
V @RTCVT.R3 
MOV #1$,aRTCVT 
JSR PC, WRPSW 
.WORD 34 
BIT #BIT6,@LKS 
BEQ 2$ 
ERROR+33 
BR 2$ 
1$: CMP (SP) +, (SP)+ 
ERROR+34 
2$: BIS #B1T6.aLKS 
BIT #BIT6.a@LKS 
BNE 3$ 
ERROR+35 
3$: BIC #BIT6,aLKS 
BIT #BIT6.aLKS 
BEQ 4$ 
ERROR+ 36 
4$: BIS #B1T6,aLKS 


RESET 


:1S CONSOLE UNDER yt pe 
:1F NOT, SKIP THIS TEST 
ARE LINE CLOCK TESTS INHIBITED? 
ZF YES. SKIP THIS TEST 
SAVE LINE CLOCK VECTOR 
;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
SET PSW TO PRIORITY 7 


: TEST BIT6 OF LKS 
;BIT6 OF LKS NOT CLEAR AFTER RESET 


RESTORE SP AFTER INTERRUPT 
3LKS INTERRUPT WITH PRIORITY=7 
SET BIT6 OF LKS 

TEST BIT6 OF LKS 

:BR IF SET 

CANNOT SET BIT6 OF LKS 
:CLEAR BIT6 OF LKS 
TEST BIT6 OF LK 


; CANNOT CLEAR BIT6 OF LKS 
SET BIT6 OF LKS 
CLEAR BIT6 OF LKS WITH RESET 


SEQ 0049 





-MAIN. 


T14 


1876 005746 
1877 005754 


1878 
+ da 005756 
1881 005760 


MACRO M1111 20-SEP-79 10:37 PAGE 86-1 
TEST THAT BITO OF LKS CAN BE SET & RESET 


032777 000100 174720 BIT #BIT6,aLKS ; TEST BIT6 OF LKS 
001401 BEQ 5$ ;BR IF CLEAR 
104037 ERROR+37 


; CANNOT CLEAR BIT6 OF LKS WITH RESET 
010377 174712 5$: MOV R3,@RTCVT RESTORE LINE CLOCK VECTOR 


SEQ 0050 
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T14 TEST THAT BIT6 OF LKS CAN BE SET & RESET SEQ 0051 
1883 
1884 
1885 DIO III III III IIIS UICC IIIT TTI TTS ISAS AN 
;*TEST 15 TEST FOR DUAL ADDRESSING OF REGISTERS 
PIR Rahal kkk hehehe kahalalehehahalelalahaiahehahaiahahelshahahelelalahahaialshahaheislsieheleielalelaieieloleielsielclelelel 
005764 000004 TST15: SCOPE 
1886 005766 013703 000004 MOV ar ,R3 SAVE TIMEOUT VECTOR 
1887 005772 013704 000006 MOV a6 ,R4 7SAVE TIMEOUT PSW 
1888 005776 012737 006130 000004 MOV #4$ a4 :SET UP TIMEOUT VECTOR 
1889 006004 012737 000340 000006 MOV #340, a#6 ;KEEP PRIO=7 
1890 006012 000005 RESET ; CLEAR rie eae 
1891 006014 012700 000002 MOV #81T1,R0 SET UP BIT 
1892 006020 032777 000020 173012 BIT A#BIT4 ,ASWR ;CLOCK TEST ONLY? 
1893 006026 001404 BEQ 1$ 7BR IF NOT 
1894 006030 016767 174640 172762 MOV LKS,$GDADR SELSE, MOVE GOOD LKS ADDRESS INTO $GDADR 
1895 006036 000403 BR 2s 
1896 006040 016767 174570 172752 1$: MOV RCSR,$GDADR s;MOVE GOOD RCSR ADDRESS INTO $GDADR 
1897 006046 016767 172746 172746 2%: MOV $GDADR,$BDADR ;MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION 
1898 006054 040067 172742 BIC RO, $8DADR CREATE BAD ADDRESS BY COMPLEMENTING ONE BIT 
1899 006060 026767 172734 172734 CMP SGDADR,$BDADR ARE ur tet IDENTICAL? 
1900 006066 001002 BNE 3$ ;1F NOT, TEST THIS ADDRESS 
1901 006070 050067 172726 BIS RO, $BDADR ‘ELSE. BIT SET THIS BIT POSITION TO GENERATE BAD ADDRESS 
1902 006074 017767 172722 172722 3$: MOV @SBDADR,SGDDAT SAVE CONTENTS OF BAD ADDRESS IF IT EXISTS 
1903 006102 052777 0001900 172712 BIS WB1T6,a$BDADR SET BIT6 USING BAD ADDRESS 
1904 006110 032777 000100 172702 BIT #B1T6,a$GDADR ;CHECK TO SEE IF GOOD ADDRESS CONTAINS BIT6 
1905 006116 001011 BNE 6$ BR IF SET ---> ERROR 
1906 006120 016777 172700 172674 MOV $GDDAT,@$BDADR ;RESTORE ANY MEMORY LOCATION THAT WAS ALTERED 
1907 006126 000401 BR 5$ BR TO CONTINUE TEST 
1908 006130 022626 4$: CMP (SP)+, (SP)+ RESTORE SP AFTER TIMEOUT 
1909 006132 006300 5$: ASL RO ;SHIFT BIT MASK TO NEXT POSITION 
1910 006134 105700 TSTB RO ae ng ALL BITS FROM 1 ~ 7? sett 
1911 006136 100343 BPL 2$ BR, _IF sat? 
al 006140 000401 BR 7$ BR’ TO NEXT” TEST 
1914 006142 104040 6$: ERROR+40 ;DUAL_ ADDRESSING ERROR 
1915 ;$BDADR = DUAL ADDRESS 
4s :$GDADR = GOOD ADDRESS 
1918 006144 010337 000004 7$: MOV R3,a44 RESTORE TIMEOUT VECTOR 
1919 006150 010437 000006 MOV R4,a46 RESTORE TIMEOUT PSW 
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TEST FOR DUAL ADDRESSING OF REGISTERS SEQ 0052 


RRR ERR RRR ERE EERE ERE EERE REAR 


TRTEST 16 TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED 


174442 
000100 


006154 
1924 006156 
006162 


006172 
1925 006174 
174472 


174422 


172646 


174460 
174452 


174442 
174434 


eettt iti iiiiiiittitiiiititiiiititiititiiii titi titi a 


TST16: 


CTSTFL 
TST17 
#B1T6,aSWR 
TST17 


@aLKS 
2s 


#B1T7,aLKS 
#BIT7,aLKS 
3$ 


#BI1T7,aLKS 
eRe 


ERROR+42 


CLR 
TSTB 
BMI 
INC 
BNE 


ERROR+43 


aiF CONSOLE UNDER TEST? 
F NOT, SKIP THIS TEST 
“ARE LINE CLOCK TESTS  iianeliada 
3IF YES, SKIP THIS TEST 
: CLEAR EVERYTHING - ahd BIT7 OF LKS 
TEST FOR BIT7 OF 
“BR IF SET 


;BIT7 OF LKS DID NOT SET WITH RESET 


CLEAR BIT7 OF LKS 
TEST BIT? OF LKS 


TRY ONE MORE TIME BECAUSE THE CLOCK 
; MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEAR 
CAN NOT CLEAR BIT7 OF LKS 


;CLEAR TIMER 
: TEST a sl OF LKS 


INCREMENT TIMER 
CONTINUE UNTIL TIME EXPIRES 


;BIT7? OF LKS DOES NOT SET 
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T16 TEST THAT BIT? OF LKS SETS & CAN BE CLEARED 


1949 


022626 
104045 


012777 
2777 


022626 
042777 
010377 
010477 


174334 


0100 
174320 


174300 


174260 


006464 
000200 
000100 
174216 


172540 


174350 


174324 


174274 


174240 
174230 
174222 


174200 


WeRARARSASAAASLALLAL SASS SLERRRASERSS ERASE SARA RRR AAAS RRR RARER AR ASS SS | 


TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 


—MeOeshASARASASAS RAR RRS ASARRSEEASASESRERSASSAR ASA LARA S ERAS SASS SESE! 


:*TEST 17 


+8117: 


CTSTFi 
TST20 
#B1T6,aSWR 
TST20 

PC ,WRPSW 
«WORD 340 
@RTCVT RS 


@RTCPSW,R4 
#2$,aRTCVT 


#340, aRTCPSW 


#BIT?,aLKS 
#B1T6.aLKS 
@aLKS 

1$ 


3$ 


li sti 


31S CONSOLE UNDER TEST? 

;1F NOT, SKIP THIS TEST 

ZARE LINE CLOCK Hag INHIBITED? 
F YES. SKIP THIS TEST 

:SET PSwW TO PRIORITY 7 


;SAVE LINE CLOCK VECTOR 


SAVE LINE CLOCK PSW VECTOR 
:SET RTC aie ie ee TO ERROR REPORT 


;CLEAR C 
;SET_INTERRUPT ENAB 


LE 
;WAIT FOR RTC DONECINTERRUPT REQUEST) 
:GIVE TIME FOR ANY INTERRUPTS 


;GIVE TIME FOR ANY INTERRUPTS 


BR, IF NO INTERRUPT OCCURS 


RESTORE SP AFTER INTERRUPT 
RTC INTERRUPTS AT PRIORITY 7 


@LKS | ;DISABLE RTC INTERRUPTS & CLEAR DONE 


#4$ ,ARTCVT 
PC ,WRPSW 
D 24 


. WOR 
aLKS 
20$ 


5$ 


* ssaticticeiaatcs 


#7$,aRTCVT 
#BIT7,aLKS 
#BIT6,aLKS 
@LKS 

6$ 


(SP)+,(SP)+ 
ABIT6, Mn 
R3.aR 

R4, SRT CP sw 


:SET RTC INTERRUPT VECTOR FOR ERROR 
CHANGE PSW TO PRIORITY 5 


WAIT FOR DONE (INTERRUPT REQUEST) 
:GIVE TIME FOR ANY INTERRUPT 


;GIVE TIME FOR ANY INTERRUPT 
:I1F NO INTERRUPT ~ BR TO CONTINUE TEST 


;RESTORE SP AFTER ‘INTERRUPT 
[RTC INTERRUPTS WITH INTERRUPTS DISABLED 


:POINT RTC VECTOR TO ow OF TEST 


:WAIT FOR RTC DONE 
:GIVE TIME FOR INTERRUPT 
RTC INTERRUPT DID NOT OCCUR 


RESTORE SP mh wentieals 
:DISABLE INTERRUPTS 
:RESTORE LINE CLOCK VECTOR 


[RESTORE LINE CLOCK PSW VECTOR 


SEQ 0053 
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117 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY SEQ 0054 
1998 
1999 
2000 
2001 STREAK ERERAE KERR ERE EE 
:*TEST 20 TEST RTC FOR DOUBLE INTERRUPTS 
CLARA REAR AEERERERERE ERE E EKER EREREREREREREEREKEEE RARER AREER 
0065 TST20: SCOPE 
2002 006506 005767 174112 TST CTSTFL 31S CONSOLE UNDER TEST? 
006512 001462 BEQ TST21 ‘IF NOT, SKIP THIS TEST 
006514 032777 000100 172316 BIT #BIT6,aSWR TARE LINE CLOCK TESTS INHIBITED? 
006522 001056 BNE TST21 ‘IF VES. SKIP THIS TEST 
2003 006524 RESET CLEAR EVERYTHING 
006526 017703 174144 MOV @RTCVT,R3 SAVE LINE CLOCK VECTOR 
2005 006532 017704 174142 MOV @RTCPSW,RS : SAVE LINE CLOCK PSW VECTOR 
0065 012777 06 174132 MOV #2$,aRTCVT T UP RTC INTERRUPT VECTOR 
2007 006544 012777 340 174126 MOV #340, aRTCPSW ‘DISALLOW INTERRUPTS AFTER THE INTERRUPT 
006552 004767 005762 JSR PC, WRPSW SET PRIORITY TO 5 
2009 006556 000240 D 240 
2010 006560 042777 000200 174106 BIC WBIT7,aLKkS CLEAR CLOCK DONE FLAG 
11 006566 052777 000100 174100 BIS #B1T6,aLKS SENABLE CLOCK INTERRUPTS — 
2012 006574 105777 174074 1$: TSTB aLKS WAIT FOR DONE 
006600 100375 BPL 1$ 
2014 006602 000240 NOP GIVE TIME FOR ANY INTERRUPT 
2016 006604 104047 ERROR+47 RTC INTERRUPT DID NOT OCCUR 
18 022626 2$: CMP (SP) +, (SP)+ RESTORE SP AFTER INTERRUPT 
2019 006610 012777 006636 174060 MOV #3$,aRTCVT :POINT RTC VECTOR TO ERROR REPORT 
2020 006616 004767 005716 JSR PC, WRPSW SET PSwW TO PRIORITY 5 
2021 006622 000240 .WORD 240 
2022 006624 000240 NOP :GIVE SOME TIME FOR AN INTERRUPT 
2023 006626 000240 NOP :GIVE SOME TIME FOR AN INTERRUPT 
2024 006630 000240 NOP GIVE SOME TIME FOR AN iNTERRUPT 
2025 006632 000240 NOP GIVE SOME TIME FOR AN INTERRUPT 
g026 006634 000402 BR 4$ NO INTERRUPT - BR TO END OF TEST 
2028 006636 022626 3$: CMP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
2029 006640 104050 ERROR+50 : INTERRUPT SEQUENCE DID NOT CLEAR 
on ; INTERRUPT REQUEST 
2032 006642 042777 000100 174024 4$: BIC #BIT6,aLKS DISABLE CLOCK INTERRUPTS 
2033 006650 010377 174022 MOV R3,aRTCVI RESTORE LINE CLOCK VECTOR 
4 010477 174020 MOV R4,aRTCPSW RESTORE LINE CLOCK PSwW VECTOR 
OSE LESS 
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120 


MACRO M1111 


TEST RTC FOR DOUBLE INTERRUPTS 


2057 
2058 006772 
2059 006774 
2060 
2061 006776 


010377 


000100 


q 7%6 4, 


1721462 


173756 
173746 
173740 


173704 
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**@RRHeReRReFeeheteeeheteeeankeeaeaataeanahanenatenaneneetatetetene 


TEST THAT RTC INTERRUPT CLEARS WITH RESET 


SeTEST 21 


VERA RRRRRRRARARRRRARRRARRRRRR RARE RRRRRERER ERR RRR RRR RRR RRR RRR RSS S| 


1$121: 


C 
ERROR*+5) 


MOV 


PC ,WRPSW 
. WORD 240 
#BIT6,aLKS 
3$ 
(SP)4,(SP)¢ 


RS aRT CVT 


31S CONSOLE UNDER TEST? 


71F NOT, SKIP THIS TEST 

ARE LINE V3 Hh st INHIBITED? 
:1F YES, SKIP THIS TEST 

[SET PRIORITY TO 7 


SAVE LINE CLOCK VECTOR 
:POIN NT RTC VECTOR TO ERROR REPORT 
CLOCK DONE FLAG 


CLEAR 
TENABLE CLOCK INTERRUPTS 
WAIT F 


OR DONE (INTERRUPT REQUEST) 


; CLEAR PENDING INTERRUPT WITH RESET 
;SET PRIORITY TO 5 


:GIVE TIME FOR ANY INTERRUPT 
:GIVE TIME FOR ANY INTERRUPT 
:GIVE TIME FOR ANY INTERRUPT 
:GiVE TIME FOR ANY INTERRUPT 
DISALLOW INTERRUPTS 

;BR TO END OF TEST 


RESTORE SP AFTER INTERRUPT 
ZRESET DID NCT CLEAR INTERRUPT 


RESTORE LINE CLOCK 


VECTOR 


SEQ 0055 


SS SR SS. 


-MAIN, 
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TEST THAT RTC INTERRUPT CLEARS WITH RESET 


2085 
2086 007120 
2087 007122 
2088 

2089 007124 


2090 007130 
2091 007134 


022626 
104052 


010377 
004767 
000340 


173614 
000100 


005512° 


173642 
007120 
000200 
000100 
173612 


000200 
005442 


000100 


173546 
005404 


172020 


173634 
173624 
173616 


173602 


173556 


fee = mente eh ee ape ge ed ge tee eee tag gimp team age sob apn ager py 


es: 


3$: 


CMP 


ERROR +52 


TEST THAT RIC INTERRUPT CLEARS BY CLEARING BIT? 


#2$,aRTCVT 
#BIT7,aLKS 
#BIT6,aLKS 
@LKS 

1$ 

#BIT7 ,aLKS 
PC ,WRPSW 
«WORD 240 


#BIT6,ALKS 
3$ 


(SP)+, (SP) + 


R3,aRTCV! 
PC ,WRPSW 
34 


;1S CONSOLE UNDER TEST? 

;1F NOT, SKIP THIS TEST 

ARE LINE CLOCK TESTS INHIBITED? 
IF YES, SKIP THIS TEST 

;SET PRIORITY TO 7 


SAVE LINE CLOCK VECTOR 
sPOINT RTC VECTOR TO ERROR REPORT 


;CLEAR CLOCK DONE FLAG 
;ENABLE CLOCK INTERRUPTS 
WAIT FOR DONE (INTERRUPT REQUEST) 


CLEAR DONE & INTERRUPT 
;ALLOW INTERRUPTS 


:GIVE TIME FOR ANY INTERRUPT 
:GIVE TIME FOR ANY INTERRUPT 
:GIVE TIME FOR ANY INTERRUPT 


:GiVE TIME FOR ANY INTERRUPT 
;DISALLOW INTERRUPTS 
[BR TO END OF TEST 


ZRESTORE SP AFTER INTERRUPT 
7CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT 


RESTORE LINE CLOCK ro 
RESTORE PRIORITY TO 7 


OF LKS 


SEQ 0056 


te 
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T22 TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT? OF LKS SEQ 0057 


2093 
94 
oe SL AAARAAAAAAARAERERRERRAREERAAKRRERRERRARRARREEAAR HARARE AARAR RARE 
*TEST 23 TEST CLOCK REPEATABILITY 
SE EAAAAARAARAAAREERRRARAARAEKEKREERARARRERRAERARERARARRAREARERRRA RES 
007136 000004 S123: SCOPE 
2096 007140 005767 173460 TST CTSTFL ;1S CONSOLE UNDER TEST? 
007144 001467 BEQ TST24 IF NOT, SKIP THIS TEST 
007146 032777 000100 171664 BIT #81T6,aSWR TARE LINE CLOCK TESTS INHIBITED? 
007154 001063 BNE TST24 SIF YES, SKIP T 
2097 007156 042777 000100 173510 BIC #B1T6,@LKS ; DISALLOW INTERRUPTS. 
2099 007164 005000 CLR RO ;CLEAR A TIMER 
2100 007166 012701 177777 MOV #-1,R1 ZSET A FLAG INDICATING FIRST PASS THRU THIS LOOP 
2101 007172 005002 1$: CLR R2 >CLEAR CLOCK COUNTER 
2102 007174 005077 173474 CLR @LKS [CLEAR DONE 
2103 007200 105777 173470 2$: TSTB = @LKS >SYNC ON DONE 
2104 007204 100375 BPL 2$ 
2105 007206 005077 173462 CLR @LKS CLEAR DONE 
2106 007212 105777 173456 3$: TSTB = @LKS 71S CLOCK DONE? 
2107 007216 100003 BPL 4$ [BR IF NOT , TO INCREMENT TIMER 
2108 007220 005202 INC R2 :1F DONE, INCREMENT CLOCK COUNT 
2109 007222 005077 173446 CLR @LKS >CLEAR DONE 
2110 007226 005200 4$: INC RO ; INCREMENT TIMER 
2111 007230 001370 BNE 3$ ;BR IF TIME REMAINS 
2112 007232 005201 INC R1 ; INCREMENT LOOP PASS FLAG 
2113 007234 001003 BNE CMPARE BR IF TWO PASSES HAVE BEEN MADE 
2114 007236 010267 173074 MOV R2,FIRST :IF NOT, STORE FIRST CLOCK COUNT 
2115 007242 000753 BR 1$ :DO LOOP AGAIN 
2116 007244 016701 173066 CMPARE: MOV FIRST,R1 RECALL FIRST CLOCK COUNT 
2117 007250 160201 SUB R2.R1 >CALCULATE DIFFERENCE OF TWO COUNTS 
2118 007252 100001 BPL TOLER IF POSITIVE,SKIP NEGATION OF DIFFERENCE 
2119 007254 005401 NEG R1 ;MAKE DIFFERENCE A POSITIVE NUMBER 
2120 007256 032767 000001 173516 TOLER: BIT #BITO,FLAGS4 :** IS THIS A 11/44 
2121 007264 001403 BEQ 6$ ** NO 
2122 007266 020127 000002 CMP R1,42 :e* YES; COMPARE DIFFERENCE WITH DESIRED 
2123 : z** TOLERANCE OF 2 
2124 007272 000402 BR 7$ zee 
2125 007274 020127 000001 6$: CMP R1,41 [COMPARE DIFFERENCE WITH DESIRED TOLERANCE 
2126 007300 003403 7$: BLE 5$ BR, IF LOWER/EQUAL TO TOLERANCE 
2128 007302 010267 173310 MOV R2,SECND ;STORE SECOND COUNT 
2129 007306 104053 ERROR+53 [CLOCK REPEATABILITY ERROR 
2131 007310 032777 000020 171522 S$: BIT #B1T4,aSWR :CLOCK TESTS ONLY? 
2132 007316 001402 BEQ TST24 :BR IF 
$i5 000167 005054 JMP $E OP sELSE, SUMP TO END OF PASS ROUTINE 


te 
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123 TEST CLOCK REPEATABILITY SEQ 0058 

2136 

2137 

2138 SE AAAAARAAAEARERERRERARKEREARARRERRRERAERARERERAARREARRERRERRE EH 
i*TEST 24 TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 
FFARR AAAERAERR ARERR AERA ERERRERAEE RARER RARER EERE RS 

007324 000004 TST24: SCOPE 

2139 007326 042777 000100 173304 BIC #B1T6,aTCSR CLEAR TRANSMIT INTERRUPT ENABLE 

2140 007334 017703 173310 MOV aTVECT,R3 ;SAVE XMIT VECTOR 

2141 007340 012777 007364 173302 MOV #2$,aTVECT ;POINT XMIT VECTOR TO ERROR REPORT 

2142 007346 105777 173266 1$: TSTB aTCcsR ;WAIT FOR DONE 

2143 007352 100375 BPL 1$ 

2144 007354 004767 005160 JSR PC ,WRPSW SET PSW TO PRIORITY 3 

2145 007360 000140 «WORD 140 

Sie? 007362 000402 BR 

2148 007364 022626 es: CMP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 

2149 007366 104054 ERROR+54 

2150 ;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 

2151 007370 012777 007416 173252 38: MOV #4$ ,aTVECT 3SET XMIT VECTOR TO END OF TEST 

2152 007376 052777 000100 173234 BIS #B1T6,aTCSR ;ENABLE INTERRUPTS 

2153 007404 000240 NOP eae 

2154 007406 000240 NOP ats 

2155 007410 000240 NOP 7 

$125 007412 000240 NOP pee 

AE 007414 104055 ERROR+55 sXMIT DID NOT INTERRUPT 

2160 007416 042777 000100 173214 4$: BIC #BIT6,aTCSR ;DISABLE INTERRUPTS 

2161 007424 022626 CMP (SP) +, (SP) + ;RESTORE SP AFTER INTERRUPT 

$166 007426 010377 173216 MOV R3,aTVECT ;RESTORE XMIT VECTOR 


-MAIN, 


2165 
2166 


007432 
2167 007434 


2178 007504 
2179 007506 


2180 
2181 007510 
2182 007512 


2183 
2184 007514 


2191 007544 
2192 007546 
2193 

2194 007550 
2195 007552 


2196 
2197 007554 


MACRO M1111 


104056 


022626 
104057 


010377 


000100 
005072 


173174 
007510 
173152 


000100 


000100 
007550 
005004 


173070 


173176 


173166 


173142 
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TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 





POR REE SESSSELGSLESSSASE SRR RRR RRR ERR RSE RSA RRR RRR RRR RRR SARA SARA O DES 


S*TEST 25 


T$125: 


1$: 


2s: 


3$: 


4$: 


5$: 


CMP 
ERROR+56 


CMP 
ERROR+57 
MOV 


TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 


TORR ROSASSESASLALASESE SSR RE SESS ERR RR RR RR RA RAR RRR RRA SRR RSS ROSES S| 


#B1TS,aTCSR 
PC ,WRPSW 


«WORD 3 
aTVECT,R3 
#2$,aTVECT 
at 


$ 
ABIT6,aTCSR 


3$ 
(SP) +, (SP) + 
#B1T6,aTCSR 
#4$,aTVECT 


PC ,WRPSW 
-WORD 140 


5$ 
(SP)+,(SP)+ 


R3,aTVECT 


;DISABLE INTERRUPTS 
;SET PSwW TO PRIORITY 7 


;SAVE XMIT VECTOR 
;POINT XMIT VECTOR TO ERROR REPORT 
;WAIT FOR DONE 


;ENABLE INTERRUPT 
-&e 


-k&k 
° 


hk 
. 


Ph fiel 

; CONTINUE TEST 

RESTORE SP AFTER INTERRUPT 
:XMIT INTERRUPTS AT PRIORITY=7 
;CLEAR INTERRUPT E 


NABLE 
zPOINT XMIT VECTOR TO ERROR REPORT 
SET PSW TO PRIORITY 3 


ke 
;BR TO END OF TEST=-NO INTERRUPT 
RESTORE SP AFTER INTERRUPT 


:XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
RESTORE XMIT VECTOR 


SEQ 0059 
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T25 
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TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 


007560 
2202 007562 
2203 007570 
2204 007574 
2205 007600 


2206 007606 
2207 007614 


2214 007642 
SSt2 007644 


2216 

2217 007646 

2218 

2219 007650 

2220 007652 
21 660 


2227 007676 
2228 007704 
2229 


2230 007706 
2231 007710 
2232 
2233 007712 
2234 007716 
2235 
2236 


007722 
2237 007724 


2246 007776 
2247 010000 
2248 010004 
2249 010010 


012777 
67 


022626 
104061 


010377 
010477 


000100 


004720 
173012 
000100 


007706 
004654 


000100 


172732 
172730 


000100 
004602 


172704 
010032 
000004 
000100 
172650 
172642 


172636 
004530 


173050 


173042 
173036 


173002 


172770 


172734 


172706 


172676 
172660 
172652 


MAAR AERAAARAASLAASASARSRASSSESASES SSSR ASA RSR SSSR SERS RSS RRR R ESS DY 


TEST TRANSMITTER FOR DOUBLE INTERRUPTS 


mae eee RRRARAEARRERASARARAARERESARASES SSR SESE SESE RSE R RSE R RSS SS SS 


18126: 


VATEST 26 


2$: 


4$: 


5$: 


CC RK RE KE ERE EKEEEEKKREEEKEREEEERE RE R ERE ER EKER 


TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


CU RRR RRR ERE REE REE EERE KER ERE RRR EEERREEEEAEEEREE EEE RE REE 


:DISABLE INTERRUPTS 
SET PSW TO PRIORITY 7 


SAVE _XMIT VECT 


S*TEST 27 
TST27: 


SCOPE 

BIC #B1T6,aTCSR 
MOV aTVECT,R3 
MOV aTPSW,R4 
MOV #2$,aTVECT 
MOV #340 ,aTPSW 


JSR PC ,WRPSW 
-WORD 140 

TSTB aTCSR 

BPL 


1$ 
BIS #B1T6,aTCSR 


CMP (SP) +, (SP) + 

MOV #4$ ,aTVECT 

JSR PC ,WRPSW 
140 


BIC #BIT6,aTCSR 
5$ 


CMP (SP)+, (SP)+ 
ERROR+61 


MOV R3,aTVECT 
MOV R4,aTPSW 


BIC #BIT6,aTCSR 
JSR PC ,WRPSW 


-WORD 3 
MOV aTVECT,R3 
MOV #2$,aTVECT 
BIS ABIT2,aTCSR 
BIS #B1T6,aTCSR 
TBUF 


C ) 

TSTB aTCSR 

BPL 1$ 

CLR @TBUF 

JSR PC ,WRPSW 
-WORD 140 


;CLEAR INTERRUPT ENABLE 
; TOR 


; SET TOR 
ZSET PIO 7 AFTER INTERRUPT 
;SET PSW TO PRIORITY 3 


zWAIT FOR DONE 
ZENABLE INTERRUPTS 


:XMIT INTERRUPT DID NOT OCCUR 
sRESTORE SP AFTER INTERRUPT 
:POINT XMIT VECTOR TO ERROR 
SET PSwW TO PRIORITY 3 


GIVE TIME FOR ANY INTERRUPTS 
:GIVE TIME FOR ANY INTERRUPTS 
[DISABLE INTERRUPTS 

:BR TO END OF TEST 

;RESTORE SP AFTER INTERRUPT 
:XMIT RE- seid ye ah 


RESTORE XMIT VECT 
RESTORE XMIT PSW VECTOR 


OR 
:POINT XMIT VECTOR TO ERROR 
WRAP 


:** ENABLE MAINT. 

ENABLE INTERRUPTS 

;LOAD TBUF 

;WAIT FOR DONE (INTERRUPT) 


sFILL SECOND BUFFER TO RESET INT. 
sALLOW INTERRUPTS 


SEQ 0060 








2250 010012 


2255 010030 

2256 

2257 010032 

2258 010034 

2259 010042 

2260 

2261 010044 

2262 

2263 010050 
010052 
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022626 
042777 


104062 
010377 


001374 


000100 


000004 


172600 


000002 


172610 


172616 
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T27 TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


40$: 





MOV 







#BIT6,aTCSR 
3$ 


(SP)+,(SP)+ 
ABIT2,aCTCSR 


R3,aTVECT 


’ 
° 
e 
. 
e 
e 


;LOADING TBUF DID NOT CLEAR INTERRUPT. 
RESTORE XMIT VECTOR 


3x* THiS WILL INHIBIT ANY COMMUNICATION 
;** TQ HARDWARE MEDIA SUCH AS Les THAT MIGHT 
;** BE ATTACHED TO UART UNDER TEST 


;BR TO END OF TEST 





SEQ 0061 






IVE TIME FOR AwY INTERRUPTS 
IVE TIME FOR ANY INTERRUPTS 
IVE TIME FOR ANY INTERRUPTS 
IVE TIME FOR ANY INTERRUPTS 
ISABLE INTERRUPTS 





;G 
:G 
:G 
;G 
7D 





RESTORE SP AFTER INTERRUPT 

3;** DISABLE MAINTENANCE MODE FOR 

:** CONSOLE TO ALLOW FOR COMMUNICATION 
:** WITH TERMINAL. 








** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
** THAT MIGHT BE IN THE PROCESS OF BEING 

** TRANSMITTED TO FINISH BEFORE MAINTENANCE 

** WRAP FOR THE UART UNDER TEST IS DISABLED. 
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MACRO M1111 


20-SEP-79 10:37 PAGE 97 


TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


2272 0101 

2273 010144 
2274 010150 
2275 010156 
2276 010160 
2277 010162 
2278 010164 


2279 

2280 010172 

2281 

2282 010174 
010174 


010206 
010210 
2283 010212 
2284 010214 
2285 010222 
2286 
2287 010224 
2288 
2289 010226 
2290 010230 


0246 
2295 010254 
2296 
2297 010256 


000004 
032767 
001073 
000005 
052777 
005000 
012701 


042777 


000001 


000004 
000002 


172512 


172474 


1724 
00400. 


000004 


000002 


004000 


000004 
000000 


173526 


000004 


172704 


172530 


172456 


172466 


172412 


172402 


172360 


172374 


SEQ 0062 


WES AARRRRRRASARRASRS SALAS ARARA RASA RSARRR ER RRR RRR ARRAS RRR SASSER SS SS S| 


SeTEST 30 


TST30: 


42$: 


43$: 


WACTV: 


2$: 


40$: 


3$: 
WT: 


TEST THAT RCVR ACTIVE & DONE SET & CLEAR 


WOOO SASRASASALALEASSSSASAS AAA RAR SASS SESE R ARRAS SSSA SRSA SSAA S SSS SD 


SCOPE 

BIT #BITO,FLAG44 
BNE RCVDON 

RESET 

BIS #BIT2,aTCSR 
CLR RO 

MOV #2,R1 

TSTB. — @RCSR 

BMI 43$ 

DEC RO 

BNE 42$ 

DEC R1 

BNE 42$ 

BR +6 

TST @RBUF 

CLR RO 

CLR @ BUF 

BIT #51T11,aRCSR 
BNE 2$ 

INC RO 

BNE WACTV 

BIC #BIT2,aCTCSR 
ERROR+63 

CLR 0 

MOV #2,R1 

DEC RO 

BNE 40$ 

DEC RI 

BNE 40$ 

RESET 

BIT #B1T11,aRCSR 
BEQ 3$ 

ERROR+115 

CLR RO 

BIS #B1T2,aTCSR 
ADD #0,80 

INC RO 

BNE wT 

BIT BIT11,a@RCSR 
BEQ RCVDON 

BIC #BIT2,aCTCSR 


kk 
"kK 
;CLEAR EVERYTHING 
7 SET MAINTENANCE WRAP 
;** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
;** THAT MIGHT BE IN THE PROCESS OF BEING 
;** RECEIVED TO FINISH AFTER MAIN 
FOR TH T UNDER 


TENANCE 
OR TEST IS ENABLED. 
;ae = CHECK FOR RECEIVER DONE 


;** READ TO CLEAR DONE 
[CLEAR A TIMER 

;LOAD TRANSMIT BUFFER 
;TEST RCVR ACTIVE BIT 


7BR IF SET 
Bento ayn gd TIMER IF NOT SET 
ONTINUE WAIT IF TIME REMAINS 
res DISABLE MAINTENANCE MODE FOR 
:** CONSOLE TO ALLOW FOR COMMUNICATION 
3** WITH TERMINAL. 


;RCVR ACTIVE DID NOT SET WHILE RECEIVING 


;** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
;** THAT MIGHT BE IN THE PROCESS OF BEING 

;** TRANSMITTED TO FINISH BEFORE MAINTENANCE 

;** WRAP FOR THE UART UNDER TEST IS DISABLED. 

3** THIS WILL INHIBIT ANY COMMUNICATION 

3** TO HARDWARE MEDIA SUCH AS Ls I THAT MIGHT 
;** BE ATTACHED TO UART UNDER TEST 


;VERIFY "‘INIT’’ CLEARS RCV ACTIVE 


:INiT DID NOT CLEAR RCV ACTIVE 


;CLEAR A TIMER 
:SET MAINTENANCE WR 
;WAIT AT LEAST ONE BIT TIME 


;VERIFY RCV ACTIVE STILL CLEAR 
IF CLEAR 


3** DISABLE MAINTENANCE MODE FOR 
3** CONSOLE TO ALLOW FOR COMMUNICATION 


-MAIN. MACRO M1111 20-SEP-79 10:37 PAGE 97-1 
T30 TEST THAT RCVR ACTIVE & DONE SET & CLEAR SEQ 0063 


3** WITH TERMINAL. 
sss 010264 104116 ERROR+116 =RCV ACTIVE WITHOUT ‘'START'' BIT 


2300 010266 052777 000004 172344 : #BIT2,aTCSR SET MAINTENCE WRAP 

2301 010274 C RO ;CLEAR TIMER 

2302 010276 172340 CL ;LOAD TRANSMIT BUFFER 
2303 010302 172326 : ; CHECK FOR RECEIVER DONE 
2304 010306 100406 BM 5 


004 BR, IF DONE 
2305 010310 Z INCREMENT TIMER, IF NOT DONE 
2306 010312 BN WDONE ZCONTINUE WAIT IF TIME REMAINS 
2307 010314 000004 172336 ABIT2,aCTCSR ;** DISABLE MAINTENANCE MODE FOR 
:** CONSOLE TO ALLOW FOR COMMUNICATION 
3** WITH TERMINAL. 


RECEIVER DONE NEVER SET 


032767 000001 172450 : #B1TO,FLAG4S 3** 11/442? 
BN $ ;** DO NOT EXECUTE THIS SECTION 
004000 172272 > ah oataeraa : CHECK FOR RCVR ACTIVE CLEAR 
042777 000004 172306 #BIT2,aCTCSR 3;** DISABLE MAINTENANCE MODE FOR 
:** CONSOLE TO ALLOW FOR COMMUNICATION 
:** WITH TERMINAL. 


5318 ;RCVR ACTIVE DID NOT CLEAR WITH RCVR DONE 
2319 010354 000005 2 RESET CLEAR DONE WITH RESET 


2320 010356 105777 172252 TSTB @aRCSR CHECK FOR DONE CLEAR 
2321 010362 001404 BEQ 7$ 


2308 010322 104064 
2309 


2316 010352 104065 ERROR+65 
2317 


2322 
2323 010364 042777 000004 172266 BIC #BIT2,acTCSR :** DISABLE MAINTENANCE MODE FOR 
3** CONSOLE TO ALLOW FOR COMMUNICATION 
3** WITH TERMINAL. 


2324 010372 104066 ERROR+66 
2325 ;RESET DID NOT CLEAR RCVR DONE 


2326 

2327 010374 ; 

2328 010374 042777 000004 172256 BIC _- #BIT2,@CTCSR —_; ** DISABLE MAINTENANCE MODE FOR 
:** CONSOLE T9 ALLOW FOR COMMUNICATION 
t** WITH TERMINAL. 





-MAIN, 
T30 


010562 
2353 010566 
2354 010572 
2355 010576 
2356 010600 


MACRO M1111 


000004 
000005 
052777 
005000 
012701 


105777 
1004 


105777 
001401 
104070 


000240 


000004 
032767 
001050 
000005 
052777 
052777 


005000 
012701 


105777 
100405 


5 
032777 


000004 
000002 


172206 


172170 
172170 
172156 


172152 
000004 


172136 


000001 
000001 
000004 
000002 


172066 


172050 
172050 
172036 


000001 


172224 


172166 


172026 


20-SEP-79 10:37 PAGE 98 
TEST THAT RCVR ACTIVE & DONE SET & CLEAR 


—MARRBAROSLLZQAALALSLASARSSSRSE LE RSASASE SERS ERAS S ARRAS AAR RA SAAR SESS: 


TEST THAT READING RBUF CLEARS RECEIVER DONE 


MASS SAALASASASALLALESESASSAE REE A ESSER ASR RRR RRR RR RRR RRR RRR SRS ES 


;CLEAR EVERYTHING 


TEST 31 
TST31: SCOPE 
RESET 
BIS #BIT2,aTCSR 
CLR RO 
MOV #2,R1 
42$: TSTB ARCSR 
BMI 43$ 
DEC RO 
E 42% 
DEC R1 
BNE 42$ 
BR .+6 
43$: TST @RBUF 
LR aTBUF 
1$: TSTB ARCSR 
! 
MOV @RBUF ,RO 
BIC #BIT2,aCTCSR 
TSTB ARCSR 
BEQ 10$ 
ERROR+70 
10$: NOP 


: SET MAINTENANCE WRAP 


TIME TO ALLOW ANY CHARACTERS 
BE IN THE PROCESS OF BEING 


** RECEIVED La FINISH AFTER MAINTENANCE 
** WRAP FOR THE UART UNDER TEST IS ENABLED. 
** CHECK FOR RECEIVER DONE 


;** READ TO CLEAR DONE 


[LOAD TRANSMITTER 


sWAIT FOR RECEIVER DONE 


READ RECEIVE BUFFER 
3** DISABLE MAINTENANCE MODE FOR 
:** CONSOLE TO ALLOW FOR COMMUNICATION 


:** WITH 


TERMINAL . 
> CHECK . RECEIVE DONE CLEAR 


:** BR, 


CLEAR TO NEXT TEST 


READING RBUF DID NOT CLEAR RCVR DONE 


LDR ERE KEKE KEKE EKER ERE EERE ER 


:*TEST 32 


TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG 


DLR RRR KEE REE ERE REE REE KREREERE REE 


ree 11/44 2? 
ie* YES DO NOT EXECUTE THIS TEST 


TST32: 


42%: 


43$: 
1$: 


SCOPE 

BIT #B1TO,FLAG44 
BNE 10$ 

RESET 

BIS #B1TO,@RCSR 
BIS #BIT2,aTCSR 
CLR RO 

MOV #2,R1 

TSTB @RCSR 

BMI 43$ 

DEL RO 

BNE 42$ 

DEC R1 

BNE 42$ 

BR +6 

TST @RBUF 

CLR aTBUF 

TSTB @RCSR 

BPL 1$ 

BIT #B1T0,aRCSR 


ye Be Be Be Be Se Be Be Be Be 


: CLEAR EVERYTHING 


:*® DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 


** THAT MIGHT BE IN THE PROCESS OF BEING 


ak 


lal w Ai TO FINISH AFTER MAINTENANCE 
WRAP FOR THE UART UNDER 


TEST IS ENABLED. 


** CHECK FOR RECEIVER DONE 


** READ TO Nate DONE 


“LOAD TRANSMIT 


SWAIT FOR RECEIVER DONE 


VERIFY RCV ACTIVE CLEARED RDR ENABLE 


dé. 
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20-SEP-79 10:37 PAGE 98-1 


-MAIN, 
T32 TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG 


2357 010606 
2359 010610 
2360 

2361 010612 


2364 010626 


2365 010634 
2366 
2367 010636 
2368 
2369 


001401 
104117 
052777 
105777 
001404 
042777 
104067 


000240 


000001 172014 2$: 
172010 


000004 172024 


10$: 


BEQ 2$ 
ERROR+117 

BIS #BITO,ARCSR 
TSTB @RCSR 

BEQ 10$ 

BIC MBIT2,aCTCSR 
ERROR+67 


NOP 


;BR IF CLEAR 
;RDR ENABLE NOT CLEARED WITH RCV ACTIVE 


;CLEAR DONE BY SETTING RDR ENABLE 
CHECK FOR DONE CLEAR 
;** BR, IF CLEAR TO NEXT TEST 


‘** DISABLE MAINTENANCE MODE FOR 
:** CONSOLE TO ALLOW FOR COMMUNICATION 
-* WITH TERMINAL. 


;SETTING RDR ENABLE DID NOT CLEAR RCVR DONE 
"ake 


SEQ 0065 


— 


-MAIN. 
T32 


384 
2385 010750 


tod 010756 
2388 010760 
2389 010760 


2390 010766 
+4 010770 


MACRO M1111 


005000 
012701 


105777 
100405 


042777 
000405 
042777 


022626 
104071 


012777 
052777 
40 


042777 
042777 


000700 
000100 
000004 
000002 


171736 


171720 
003604 


171700 
171666 


000004 


000004 


011026 
000100 


000004 


000100 
000004 


20-SEP-79 10:37 FAGE 99 
TEST THAT RDR ENABLE CLEARS RECEIVER DONE *LAG 


171714 


171702 


171672 


171634 


MASRASRALSALSAARASA ALAR SERAASESESESSE SESE SES RRR RRS RRA R SRSA A RRA R DS SS 


TRTEST 33 


18133: 


42$: 


43$: 


1$: 


2$: 


3$: 


4$: 


SCOPE 
BIC 


BIC 


CMP 
ERROR+71 


TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 


RRR EERE EERE REAR RREEEEEAKEEEAAEERAEEEREAEEREEKR EEE 


#B1T6,aTCSR 
#B1T6,aRCSR 
#BIT2,aTCSR 


RO 
#2,R1 


@RBUF 
@RVECT ,R3 
#2$,aRVECT 


PC ,WRPSW 
-WORD 140 
aTBUF 


on 
#BIT2,aCTCSR 
3$ 
AB1T2,aCTCSR 


(SP)+,(SP)+ 


A4$ ,ARVECT 
#B1T6,aARCSR 


A#BIT2,aCTCSR 


ERROR+72 


;DISABLE TRANSMIT INTERRUPTS 
;DISABLE RECEIVER INTERRUPTS 
;SET MAINTENANCE WRAP 
;** DELAY ENOUGH TIME 


: IGHT BE 

t** RECEIVED TO FINISH AFTER MAINTENANCE 
‘e® WRAP FOR THE UART UNDER TEST IS ENABLED. 
s** CHECK FOR RECEIVER DONE 


;** READ TO CLEAR DONE 

SAVE RECEIVE VECTOR 

:POINT RCV VECTOR TO ERROR REPORT 
[SET PSW TO PRIORITY 3 


;SEND A CHARACTER 
;WAIT FOR RECEIVER DONE 


;** DISABLE MAINTENANCE MODE FOR 

3** CONSOLE TO ALLOW FOR COMMUNICATION 
3** WITH TERMINAL. 

CONTINUE TEST 


3;** DISABLE MAINTENANCE MODE FOR 

3;** CONSOLE TO  egag FOR COMMUNICATION 
:** WITH TERMINA 

SRESTORE SP AFTER” INTERRUPT 


RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 


;POINT RCV VECTOR TO END OF TEST 
s ENABLE RCV INTERRUPTS 
* GIVE ANY INTERRUPTS TIME 


DE FOR 
;** CONSOLE TO ALLOW FOR COMMUNICATION 


;** WITH TERMINAL. 
:RCVR DID NOT INTERRUPT 


DISABLE INTERRUPTS 

;** DISABLE MAINTENANCE MODE FOR 

;** CONSOLE TO ALLOW FOR COMMUNICATION 
;** WITH TERMINAL. 


SEQ 0066 


-MAIN. MACRO M1111 20-SEP-79 10:37 PAGE 99-1 
133 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 


2406 011042 022626 CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
2407 0110464 010377 171574 MOV R3,@RVECT RESTORE RECEIVE VECTOR 
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7133 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED SEQ 0068 
26409 
2410 
2411 FF SAMOA AAASAAAAAHEARAAAAAAEEAAAAARAAAAAAAAAAAAAAAHAAAHAAAHENTANEEE 
eTEST 34 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 
5s CAAMAHAAAAAKAAAAAHaRaKereenenaananagagaganagganagganaagaerseareaes 
11050 000004 T5734: SCOPE 
2412 011052 000005 RESET ; CLEAR EVERYTHING 
2413 011054 004767 003460 JSR PC ,WRPSW ;SET PSw TO PRIORITY 7 
2414 011060 000340 . WORD 0 
2415 011062 017703 171556 MOV @RVECT RS ; SAVE RECEIVE VECTOR 
2416 011066 012777 011174 171550 MOV #2%,aRVECT :POINT RCVR vecren Je TO ERROR REPORT 
2617 011074 052777 Q00006 1715%6 BIS walt, arcsr 7 SET MAINTENANCE WRAP 
2418 011102 005000 CLR RO ;** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
071106 012701 000002 MOV #2,R1 tee THAT MIGHT BE IN THE PROCESS OF BEING 
tee RECEIVED TO FINISH AFTER MAINTENANCE 
* WRAP FOR THE UART UNDER TEST IS ENABLED. 
011110 105777 171520 42%: TSTB @RCSR ee CHECK FOR RECEIVER DONE 
011114 100605 BM! 43$ al 
071116 005300 DEC RO ee 
011126 001373 BNE 423 jee 
011122 005301 DEC a ; a 
011126 001371 BNE 423 ;ee 
011126 000402 cape .*6 jee 
011130 005777 171502 43$: TST @RAVUF ;** READ TO CLEAR DONE 
2419 011134 105777 167710 4%: TSTB asTPs 7 TEST FOR MIT READY 
2620 011140 100375 BPL 63 :LOOP IF NOT 
2621 071142 005077 171476 CLR aT5ur 7 SEND A CHARACTER 
2422 011146 105777 171462 1$: TST @RCSR ;WAIT FOR RECEIVER DONE 
2423 011152 100375 BP. 1$ 
2426 011156 052777 000100 171452 BIS #BIT6, ARCS ;ENABLE INTERRUPTS 
2625 011162 000240 NOF z** GIVE TIME FOR INTERRUPT 
426 011164 000240 NOP ;** GIVE TIME FOR INTERRUPT 
2427 011166 000240 yar ;** GIVE TIME FOR INTERRUPT 
2428 011170 000240 NOP ;** GIVE TIME FOR INTERRUPT 
2629 011172 0006 GR $ 7 CONTINUE TEST 
2630 011176 2%: 
2431 011176 042777 000006 171456 BIC MBlT2,aCTCSR 7** DISABLE MAINTENANCE MODE FOR 
7** CONSOLE TO ALLOW FOR COMPUNIC4STION 
ee WITH TERMINAL. 
2432 011202 022626 CMP (SP)*,(SP)¢ [RESTORE SP AFTER INTERRUPT 
2633 011206 104073 ERROR+7% 
at = RCVR INTERRUPTS AT PRIORITY 7 
24% 011206 042777 000100 171420 38: BIC #B1T6, aRCSR 7;CLEAR INTERRUPT ENABLE 
2637 011216 012777 0112664 1714622 MOV #6$.aRVECT ;POINT RCVR VECTOR TO ERROR REPORT 
2438 011222 006767 003312 JSR PC WRPSw 7SET PSw TO PRIORITY 3 
2439 011226 000140 .WORD 140 
0 011230 000240 NoP GIVE \ IME FOR ANY INTERRUPT 
41 0°1232 000240 NoP :GIVE TIME FOR ANY INTERRUPT 


2442 011234 042777 000006 171416 BIC WBiT2 ac TCSR :** DISABLE MAINTENANCE MODE F 
pongo oe eat ALLOW FOR COPPUNT CATION 
-ee nl 


9s 071242 000405 8A S$ BR TO END OF TEST, IF NO INTERRUPT 
2445 0112646 4$: 
2666 011266 042777 000006 171406 BIC Bite aC TCSR :** DISABLE MAINTENANCE MODE FOR 


:** CONSOLE TO ALLOw FOR COMMUNICATION 


2447 
2448 
2449 
2450 


MACRO MIT! 20-SEP-79 10:37 PAGE 100-7 


TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN D/SABLED 





3e* WITH TERMINAL 


011252 022626 cmp (SP) +, (SP) “RESTORE SP AFTER INTERRUPT 






011254 104074 FRROR+ 74 


011256 010377 171362 5$: MOV R2,aPvECT SRESTORE RECEIVE VECTOR 





;RCOVR INTERRUPT REQUEST PASSED wit S176 (LF AR 


“te 
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134 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED SEQ 0070 
2452 
2453 
26454 CDCI III IOI IIOIISIOIOIIOIIIUIUISISIIUIOIIUIIUIUIIUIIOIUIDIOIIOI OIRO TR RIOT TOR tt 
r*TEST 35 TEST RECEIVER FOR DOUBLE INTERRUPTS 
TAP PRPBRRBERSBASASAASZRASLASLSZSAALSRSAASSLASES ES SESS SRS ESAS ARR RRR RAR RRR RRR SRE S SSS 
011262 000004 TS135: SCOPE 
2455 011264 000005 RESET CLEAR EVERYTHING 
2456 011266 017703 171352 MOV ARVECT,R3 SAVE RECEIVE VECTOR 
2457 011272 017704 171350 MOV @RPSW,RS SAVE RECEIVE PSwW VECTOR 
2458 011276 012777 011420 171340 MOV #2$, aRVECT POINT RCV VECTOR TO CONTINUE TEST 
2459 011304 012777 000340 171334 MOV #340, aRPSw SET PRIORITY TO 7 AFTER INTERRUPT 
2460 011312 004767 003222 JSR PC,WRPSW SET PSw TO PRIORITY 3 
2461 011376 000140 .WORD 140 
2462 011320 052777 600004 171312 BIS #BIT2,aTCSR SET MAINTENANCE WRAP 
2463 011326 005000 CLR RO ‘** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
011330 012701 000002 MOV #2,R1 ;** THAT MIGHT BE IN THE PROCESS OF BEING 
:** RECEIVED TO FINISH AFTER MAINTENANCE 
;** WRAP FOR THE UART UNDER TEST IS ENABLED. 
011334 105777 171274 42%: TSTR @RCSR s** CHECK FOR RECEIVER DONE 
011340 05 BM! 43$ ee 
011342 005300 DEC R es 
011344 001373 E 42$ ae 
011346 005301 DEC R1 xs 
011350 001371 BNE 42$ ek 
011352 000402 BR .+6 jee 
011354 005777 171256 438: TST @RBUF :** READ TO CLEAR DONE 
2464 011360 005077 171256 CLR aTBuUF SEND A CHARACTER 
2465 011364 105777 171244 1$: TSTB @RCSR ‘WAIT FOR RCVR DONE 
2466 011370 100375 BPL 1$ 
2467 011372 042777 000004 171260 BIC #B1T2,aCTCSR >** DISABLE MAINTENANCE MODE FOR 
:** CONSOLE TO ALLOW FOR COMMUNICATION 
:** WITH TERMINAL. 
2468 011400 052777 000100 171226 BIS #B1T6,aRCSR ENABLE RCV INTERRUPTS 
2469 017406 000240 NOP z** GIVE SOME TIME 
2470 011410 000240 NOP ** GIVE SOME TIME 
2471 011412 000240 NOP >** GIVE SOME TIME 
ore 011414 000240 NOP :** GIVE SOME TIME 
2474 011416 104075 ERROR+75 
ed :RCVR INTERRUPT DID NOT OCCUR 
2477 011420 022626 2$: CMP (SP)+, (SP) + RESTORE SP AFTER INTERRUPT 
2478 011422 012777 011466 171214 MOV #3$,aRVECT :POINT RCV VECTOR TO ERROR REPORT 
2479 011430 004767 003104 JSR PC,WRPSW RESET PSW TO PRIORITY 3 
2480 011434 000140 .WORD 140 
2481 011436 000240 NOP z** GIVE SOME TIME 
2482 0114460 000240 NOP z** GIVE SOME TIME 
2483 011442 000240 NOP ao GIVE SOME TIME 
2484 011444 000240 NOP * GIVE SOME TIME 
2485 011446 042777 000100 171160 BIC #BI1T6,aRCSR “CLEAR INTERRUPT ENABLE 
2486 011454 010377 171164 MOV R3,aRVECT “RESTORE RECEIVE VECTO 
2487 011460 010477 171162 MOV R4,aRPSW RESTORE RECEIVE PSw VECTOR 
oy 4 011464 000402 BR 4$ ‘BR TO END OF TEST 
2490 911466 022626 3$: CMP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
2491 011470 104076 ERROR+76 
2 RECEIVER RE-INTERRUPTED 
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735 


TEST RECEIVER FOR DOUBLE INTERRUPTS 
2493 0114672 010377 171146 4$: 


MOV 


R3,aRVECT 


RESTORE RECEIVE VECTOR 


SEQ 0071 


—te 
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135 TEST RECEIVER FOR DOUBLE INTERRUPTS SEQ 0072 


2495 
4 
mes 5 LARA RERRAAEAREEREREREREREARREREREARRRRERARRARREREREAERE RARER REE 
i*TEST 36 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 
TURP RERESSALESLLESLESESE SESE RS ERE SESE RRR RASA S RRS EASA SRSA SARA RS RAS SSS 
01147 TS136: SCOPE 
2498 011500 000005 RESET ;CLEAR EVERYTHING 
2499 011502 004767 003032 JSR PC ,WRPSW :SET PSW PRIORITY TO 7 
2500 011506 000340 «WORD 340 
2501 011510 017703 171130 MOV ARVECT ,R3 SAVE RECEIVE VECTOR 
2502 011514 012777 011642 171122 MOV #2$,aRVECT ;POINT RCV VECTOR TO ERROR REPORT 
2503 911522 052777 000100 171104 BIS #B1T6,aRCSR SET RCVR_INTERRUPT ENABLE 
504 011530 052777 000004 171102 BIS #BIT2,aTCSR ;SET MAINTENANCE WRAP 
2505 011536 005000 CLR RO :** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
011540 012701 000002 MOV #2,R1 ;** THAT MIGHT BE IN THE PROCESS OF BEING 
3** RECEIVED TO FINISH AFTER MAINTENANCE 
;** WRAP FOR THE UART UNDER TEST IS ENABLED. 
011544 105777 171064 42$: TSTB @RCSR 3** CHECK FOR RECEIVER DONE 
011550 100405 BMI 43$ ll 
011552 005300 DEC RO af 
011554 001373 E 42% alia 
011556 005301 DEC R1 all 
011560 001371 BNE 42$ all 
011562 000402 BR .+6 eae 
011564 005777 171046 43$: TST @RBUF ;** READ TO CLEAR DONE 
2506 011570 005077 171046 CLR aTBUF ;SEND A CHARACTER 
2507 011574 105777 171034 1$: TSTB @RCSR [WAIT FOR DONE (INTERRUPT) 
2508 011600 100375 BPL 1$ 
2509 011602 042777 000004 171050 BIC #B1T2,aCTCSR 3** DISABLE MAINTENANCE MODE FOR 
z** CONSOLE TO ALLOW FOR COMMUNICATION 
tx WITH TERMINAL. 
2510 011610 005077 171022 CLR @RBUF ;READ RBUF TO CLEAR PENDING INTERRPUT 
2511 011614 004767 002720 JSR PC ,WRPSW ;SET PSW TO PRIORITY 3 
2512 011620 000140 -WORD 140 
2513 011622 000240 NOP 7** ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
2514 011624 000240 NOP 7** ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
2515 011626 000240 NOP ;** ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
2516 011630 000240 NOP 7;** ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
2517 011632 042777 000100 170774 BIC #BIT6,aRCSR ;NO INTERRUPT-CLEAR INT. ENABLE 
Sale 011640 000402 BR 3$ 
2520 011642 022626 2$: CMP (SP) +, (SP) +. RESTORE SP AFTER INTERRUPT 
$253 011644 104077 ERROR+77 READING RBUF DID NOT CLEAR INTERRUPT 
6267 011646 010377 170772 3$: MOV R3,aRVECT RESTORE RECEIVE VECTOR 
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012020 


25 
2565 012046 


2578 012144 


2579 AE ES 


2587 

2588 012176 

2589 012176 
012200 


012212 


MACRO M1111 
TEST THAT RESET CLEARS 


005767 


001404 
032777 


001456 
000005 
052777 
005000 
012701 


105777 


032777 
007001 
104101 


032777 


20-SEP-79 


002000 
000001 
170556 


000010 


000004 
000002 


170532 


170514 


170502 


000004 


040000 


100000 


000002 


10:37 PAGE 104 


RECEIVE INTERRUPT 


167010 
170742 


166762 


170550 


170506 


170456 


170444 


SEQ 0074 


pagan adie aha gg niin lads 


>*TEST 40 TEST THAT THE ‘‘OR'' ERROR & ‘ERROR’’ CAN BE SET 


MRSS SASARRSSALESSASEAAASAASESSLAS ESE AS SAAR ASA SSR ARERR SRSA RASS ESS 


T5140: 


SCOPE 


BIT #B1T10,aSWR 31S THIS TEST ENABLED 
BEQ TST41 ;I1F NOT ENABLED, BR TO NEXT TEST 
BIT #BITO,FLAGSS s** IS THIS A 11/44 
BEQ 9$ 3** NO 
TST CTSTFL .**% ty THIS IS 11/44. IS THIS THE CONSOLE 
pur LU 
BEQ 9$ 7** NO 
BIT #B1T03,aSWR 3** THIS IS THE CONSOLE SLU.SHOULD THE OVERRUN 
;** ERROR TEST BE PERFORMED 
BEQ TST41 3** NO 
9$: RESET ;CLEAR EVERYTHING 
BIS #BIT2,aTCSR ;SET MAINTENANCE WRAP 
CLR RO pee DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
MOV #2,R1 ;** THAT MIGHT BE IN THE PROCESS OF BEING 
;** RECEIVED TO FINISH AFTER MAINTENANCE 
;** WRAP FOR THE UART UNDER TEST IS ENABLED. 
42%: oar a 7** CHECK FOR RECEIVER DONE 
*** 
DEC RO pee 
BNE 42$ pe 
DEC R1 pa 
BNE 42$ per 
BR +6 pe 
43$: TST @RBUF ;** READ TO CLEAR DONE 
MOV #3,RO ;SET CHARACTER COUNT TO SEND 3 CHAR. 
1$: CLR a@TBUF ;LOAD TRANSMIT BUFFER 
es: Ld dy as SWAIT FOR TRANSMIT DONE 
L 
DEC RO 1 ov CHARACTER COUNT 
BNE 1$ BR IF ALL CHARACTERS NOT TRANSMITTED 
BIC #BIT2, aCTCSR os DISABLE MAINTENANCE MODE FOR 
ie WITH TERMI TO — FOR COMMUNICATION 
tke 
BIT #B1T14,aRBUF ‘TEST FOR FOR NE ERROR FLAG 
BNE $ ;BR, IF SET 
ERROR+101 
:"‘OR’’ ERROR FLAG DID NOT SET 
3$: BIT #B1T15,a@RBUF ; TEST “‘ERROR’’ FLAG 
BNE 4$ ;BR, IF SET 
ERROR+102 
4$ :" ERROR’’ FLAG DID NOT SET WITH ‘OR’’ FLAG 
CLR RO ;** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
MOV #2,R1 ;*x* THAT MIGHT BE IN THE PROCESS OF BEING 
40$: DEC RO pee yoy by TO FINISH BEFORE MAINTENANCE 
BNE 40$ ;** WRAP FOR THE UART UNDER TEST IS DISABLED. 
DEC R1 7** THIS WILL INHIBIT ANY COMMUNICATION 
E 40$ ;** TO HARDWARE MEDIA SUCH AS TUS8 THAT MIGHT 
;** BE ATTACHED TO UART UNDER TEST. 


MACRO M1111 20-SEP-79 10:37 PAGE 105 
TEST THAT THE ‘‘OR'' ERROR & ‘ERROR’ CAN BE SET SEQ 0075 


FDS IOI SIEIIOIOIDICIOIOIOIOIOIOI IOI OIOIOI IOI TI ITI TOIT TTT TSAI AA IISA ISIAIASS IN 
:*TEST 41 TEST THAT BREAK TRANSMITS ALL ZEROES 
SUDO IOI IIISIOIIOICISIDIOIOIOIOICISIOIIOIOIIICIOI IOI IOI TOI TOT TTT TT TTS TTT TTT TTT I 
TST41: 
000400 166614 #B1T8,aSWR 31S BREAK FUNCTION TEST ENABLED? 
TST4 BR TO NEXT TEST, IF NOT ENABLED 
000001 170546 #BITO,FLAG4S4 


rs i THIS A 11/44 
2598 012236 170362 CTSTFL YES THIS IS 11/44. IS THIS THE CONSOLE 
2599 SLU 
2600 012242 


001404 9$ 
ort 012244 032777 000010 166566 #B1T03,aSWR THIS IS THE CONSOLE SLU.SHOULD THE BREAK 


TEST BE PERFORMED 
2603 012252 001472 E TST42 NO 
2604 012254 000005 : CLEAR ae uae 
2605 012256 052777 000004 170354 IS #BIT2,aTCSR sSET MAINTENANCE WRAP 
2606 012264 005000 RO ;** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
012266 012701 000002 ° ;** THAT MIGHT BE IN THE PROCESS OF BEING 
;** RECEIVED TO FINISH AFTER MAINTENANCE 
WRAP FOR THE UART UNDER TEST IS ENABLED. 
012272 105777 170336 ; “ ;** CHECK FOR RECEIVER DONE 


a ee 
ae 


ese ee 
see 8 


Be Be Be Be Be Be Be Be Be 


* 
= 


BR . : 
012312 170320 : @RBUF ;** READ TO CLEAR DONE 
2607 012316 177777 =170316 MO #-1,aTBUF ; TRANSMIT ALL ONES TO RCVR 

2608 att) 170304 : G — [WAIT FOR RCVR DONE 


2609 0123 
2610 012332 005077 170300 @RBUF ;CLEAR DONE (LEAVING ALL ONES IN RBUF) 

000001 170274 #B1TO,aTCSR dare yy BREAK 

RO iCLEAR A TIMER 
170262 166452 : @RCSR,$BDDAT WAIT FOR RCVR DONE 
i CONT41 BR IF DONE 

2615 012356 005200 RO 31F NOT, INCREMENT TIMER 
2616 012360 2$ BR IF TIME REMAINS 


2617 

2618 012362 000001 170250 #BITO,aTCSR :CLEAR BREAK BIT 

2619 012370 000004 170262 #BIT2,aCTCSR 3** DISABLE oh ta > MODE FOR 
3** CONSOLE TO ALLOW FOR COMMUNICATION 
:** WITH TERMINAL. 

soe 012376 ERROR+103 BREAK DID NOT TRANSMIT ANYTHING 


2622 012400 170232 Is aRBuF : CHECK RECEIVE BUFFER FOR ZERO 
000001 170224 #BITO,aTCSR . :CLEAR BREAK BIT 
2625 012414 000004 170236 #BIT2.aCTcSR ; ** DISABLE MAINTENANCE MODE FOR 
*** CONSOLE TO ALLOW FOR COMMUNICATION 
‘e* WITH TERMINAL. 


2626 
soct 012422 ERROR+103 ;BREAK DID NOT TRANSMIT ALL ZEROES 
2629 012424 042777 170206 : BIC #B1TO,aTCSR ;CLEAR BREAK BIT 
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141 TEST THAT BREAK TRANSMITS ALL ZEROES SEQ 0076 


2630 012432 042777 000004 170220 BIC ABIT2,aCTCSR 3;** DISABLE MAINTENANCE MODE FOR 
;** CONSOLE TO ALLOW FOR COMMUNICATION 
7** WITH TERMINAL. 
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20-SEP-79 10:37 PAGE 106 


TEST THAT BREAK TRANSMITS ALL ZEROES 


012440 
2635 012442 
2636 012450 
2637 012452 
2638 460 


2641 012472 


2642 
2643 012476 
2644 012500 
2645 


2649 012520 
012522 


012526 


012546 
2650 012552 
2651 012560 
2652 012564 
2653 012570 
2654 012572 
2655 012600 


2656 012606 
2657 012614 
2658 
2659 012616 
2660 
2661 012620 
2662 012626 
2663 
2664 012630 
665 
2666 012632 


001404 
032777 


001451 
000005 
052777 
005000 
012701 


105777 
100405 


032777 
001001 


104104 


032777 
001001 


104114 


C02000 
000400 
000001 
170126 


000010 


000004 
000002 


170102 


100000 


166370 
166360 
170312 


166332 


170120 


170060 
170040 
170052 


170022 


170010 


SL RR E RE REEERERER EERE RRR ERRERERE EEE 


TEST THAT ''FR'' ERROR CAN BE SET DURING BREAK 


SL AA EERE EERE REE EEE EERE EERE EERE EERE RK KEKE EK RH 


S*TEST 42 

TS142: SCOPE 
BIT #81T10,aSWR 
BEQ TST43 
BIT #B1T8,aSwR 
BEQ TST43 
BIT #BITO,FLAGSS 
BEQ 9$ 
TST CTSTFL 
BEQ 9$ 
BIT #31T03,aSWR 
BEQ TST43 

9$: RESET 
BIS #B1T2,aTCSR 
CLR RO 
MOV #2,R1 

42$: TSTB ~— @RCSR 
BM! 43$ 
DEC RO 
BNE 42$ 
DEC R1 
BNE 42$ 
BR +6 

43$: TST @RBUF 
BIS #BITO,aTCSR 
CLR aTBUF 

1$: TSTB = ARCSR 
BPL 1$ 
BIC #B1TO,aTCSR 
BIC #B1T2,aCTCSR 
BIT #B1T13,aR%UF 
BNE 2$ 
ERROR+104 

2$: BIT #81115, @RBUF 
BNE 3$ 
ERROR+114 

3$: 


— 
nn 


THE ‘TEST ERROR FLAGS'' BIT SET 
BR TO ry! TEST, IF NOT SET 

BREAK FUNCTI NABLED 
BR TO NEXT TEST, IF NOT SET 


_ 
n” 


i Is THIS A 11/44 

ee 

ax YES THIS IS 11/44. IS THIS THE CONSOLE 
** SLU 

x* NO 

** THIS IS THE CONSOLE SLU.SHOULD THE FRAME 
**x ERROR TEST BE PERFORMED 


Bae Be Se Be Be Be Be Be Be Be Be Be 


e 
2 


NO 
CLEAR EVERYTHING 
[SET MAINTENANCE WRAP 
:** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
:;** THAT MIGHT BE IN THE PROCESS OF BEING 
sae eb ton a FINISH AFTER MAINTENANCE 
;** WRAP FOR THE UART UNDER TEST IS ENABLED. 
3** CHECK POR RECEIVER DONE 


ak 

3** READ TO CLEAR DONE 

SEND BREAK 

; TRANSMIT A CHARACTER TO TIME BREAK 
;WAIT FOR RCVR DONE 


;CLEAR BREAK BIT 

;** DISABLE MAINTENANCE MODE FOR 

:** CONSOLE TO ALLOW FOR COMMUNICATION 
:** WITH TERMINAL. 

i CHECK FOR, FRAMING ERROR FLAG 


e e 


sBREAK DID al SET FRAMING ERROR 
7 TEST ‘ERROR’ FLAG 
:BR, IF SET 


7" ERROR’’ FLAG DID NOT SET WITH OR’ FLAG 


SEQ 0077 


SEQ 0078 


SP lalahahatehehahehehalalahaheheiaichaielsiaiaiaiaheisiataieisisisheleialaiahaieisishahaiaisietaisisialcieieisicieleisielaiohelel 


TEST DATA PATH FROM XMIT TO REC USING MAINT WRAP 
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T42 TEST THAT ‘FR’ ERROR CAN BE SET DURING BREAK 
2668 
2669 
2670 : 
s*TEST 43 
267) 012632 000004 TST43: SCOPE 
2672 012634 000005 RESET 
sof? 012636 052777 000004 167774 BIS #BIT2,aTCSR 
2675 
2676 
2677 012644 005000 CLR RO 
012646 012701 000002 MOV #2,R) 
012652 105777 167756 42$: TSTB @RCSR 
012656 100405 BMI 43$ 
012660 005300 DEC RO 
012662 001373 BNE 42% 
012664 005301 DEC R1 
2666 001371 BNE 42$ 
012670 02 BR +6 
012672 005777 167740 43$: TST @RBUF 
2678 012676 005001 CLR R1 
2679 012700 105201 1$: INCB R1 
2680 012702 032767 000001 170072 BIT #B1T0O,FLAG4S4S 
2681 aigtts 1406 BEQ 5$ 
2682 012712 122701 000020 CMPB #20,R1 
2683 012716 1770 BEQ 
2684 012720 122701 000220 CMPB #220,R1 
2685 012724 1765 BEQ 1$ 
012726 010177 167710 5$: MOV R1,a7TBUF 
2687 012732 105777 167676 2$: TSTB @RCSR 
012736 375 BPL 
2689 012740 017702 167672 MOV £ 
2690 012744 043701 001112 BIC @4SUSWR ,R1 
2691 0612750 020102 CMP R1,R2 
92 012752 1003 BNE 3$ 
2693 012754 105701 TSTB R1 
94 012756 001411 BEQ 4$ 
2695 012760 74 BR 1$ 
2696 012762 010167 bert 74 3$: MOV R1,$GDDAT 
2697 012766 010267 166034 MOV R2.$BDDAT 
2698 012772 042777 000004 167660 BIC #B1T2,aCTCSR 
2699 013000 104105 ERROR+105 
2700 
2701 013002 4$: 
2702 013002 042777 000004 167650 BIC #BIT2,aCTCSR 
2703 
2704 
2705 
2706 


5 LEAR RARER ERE REE REE REAR ERE EERE R REAR RRE RES 


;CLEAR EVERYTHING 

SET MAINTENANCE WRAP 

; TRANSMIT A BINARY COUNT PATTERN - UP 

[TO THE BIT POSITION INDICATED BY THE 

: CONTENTS OF LOCATION ‘$USWR 

7** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
ee THAT MIGHT BE IN THE PROCESS OF BEING 
;** RECEIVED TO FINISH AFTER MAINTENANCE 

3** WRAP FOR THE UART UNDER TEST IS ENABLED. 
3** CHECK FOR RECEIVER DONE 


P4 


READ TO CLEAR DONE 
CLEAR REGISTER FOR TEST DATA 
; INCREMENT THE TEST DATA 
11/44 CPU 


‘ex TEST ALL DATA 
ss CHECK FOR CONT-P_IN TEST DATA 
;** DO NOT XMIT * 


;** DO NOT XMIT 220 
:XMIT A CHARACTER 
[WAIT FOR RECEIVER DONE 


GET RECEIVED CHARACTER 
CLEAR Meet UNUSED DATA BIT POSITITON IN TEST DATA 
COMPARE DAT 
:BR, IF NON-COMPAR E 
STEST XMIT DATA FOR ZERO 
:BR, IF FINISHED 
TINUE _IF 


NOT 
SSTORE THE EXPECTED DATA 


E FOR 
:** CONSOLE TO ALLOW FOR COMMUNICATION 
:** WITH TERMINAL 
[DATA COMPARE DATA 


;** DISABLE MAINTENANCE MODE FOR 
3** CONSOLE TO ALLOW FOR COMMUNICATION 
3** WITH TERMINAL. 


LLU AAA ERAEEAEERE RAT ERAARARRAEARARAEERAAREHEREREKERRERA ARES 
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TEST DATA PATHS USING WRAP 


013010 
2707 013012 
2708 013020 
2709 013022 
2710 013024 
2711 
2712 


2713 
2714 013026 


2726 013072 
2727 
2728 013074 


2738 013124 
2739 
2740 013130 


000004 
032777 
001444 
000005 


005001 


105201 
032767 
001406 


104064 


000 
010167 
010267 


104106 


000200 


000001 
000020 
000220 
167562 
167546 


167534 
001112 


165700 
165676 


166020 


167744 
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CABLE 


s*TEST 44 

TST44: SCOPE 
BIT #B1T7,aSWR 
BEQ TST45 
RESET 
CLR R1 

1$: INCB R1 
BIT #BITO,FLAG44 
BEQ 5$ 
CMPB #20,R1 
BEQ 1 
C 7 R1 
BEQ 

5$: MOV Rt. aTBUF 
CLR RO 

2$: TSTB @RCSR 
BMI 3$ 
INC RO 
BNE 2$ 
ERROR+64 

3$: MOV @RBUF ,R2 
BIC @FSUSWR ,R1 
CMP R1,R2 
BNE 4$ 
TSTB R1 
BEQ TST45 
BR 1$ 

4$: MOV R1,$GDDAT 
MOV R2,$BDDAT 
ERROR+106 


SEQ 0079 


TEST DATA PATHS USING WRAP CABLE 


CLEARER ERE REE EEE EKER EERE EERE AEERERERERE KEKE 


71S THIS — ENABLED 


BR, IF NO 
CLEAR EVERYT HING 
; CLEAR aT a bin FOR TEST DATA 

; TRANSMIT INARY COUNT PATTERN = UP 
:TO THE BIT POSITION INDICATED BY THE 
[CONTENTS OF LOCATION ‘‘SUSWR'’ 
; INCREMENT THE TEST DATA 

/44 CPU 


C 
; TEST ALL DAT 
SCHECK TEST DATA FOR “P 
:DO NOT XMIT 


. 
— 
yy 


;XMIT A CHARACTER 
:CLEAR A TIMER 
:WAIT FOR RECEIVER DONE 


:BR_IF DON 
Z INCREMENT TIMER IF NOT 


BR IF TIME REMAINS 


RECEIVER DONE NOT SET 


:GET RECEIVED CHARACTER 
;CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 


COMPARE DATA 


BR, IF NON-COMPARE 
STEST XMIT “see ZERO 


STORE EXPECTED DATA 
STORE RECEIVED DATA 


DATA COMPARE ERROR WITH WRAP CABLE 


EF 


MAIN. MACRO M1111 


2766 013300 
013302 


3366 
3558 013372 
Ma 013376 


er 
2778 013400 


001376 
167500 


013702 
900300 
000100 
000004 


000002 


167322 


167304 
000100 


000100 
167070 
167062 


002454 
167250 
001142 


000000 
000001 
000100 
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TEST DATA PATHS USING WRAP CABLE 


167260 


167414 


165572 


167420 
167414 
167402 
167340 


167300 
167266 


167214 





SEQ 0080 


‘itesT 45 TEST DLI1-W LOGIC BY EXERCISING THE XMIT.REC, & C 


TEST DL11-W LOGIC BY EXERCISING THE XMIT,REC, & CLOCK 


PC, WRPSW 
340 
aTVECT.R3 


#XMIT aTVECT 
#200, aTPSW 
ARCV,,ARVECT 
#200, @RPSW 
CTSTFL 


1$ 
+ ieee 
ACLK,@RTCVT 


#300 ,aRTCPSW 


#B1T6,@LKS 
~ ‘cae aat 


#2,R1 


@RBUF 
#B1T6,aTCSR 
#B1T6,aRCSR 


2$ 
#B1T6,aTCSR 
3$ 


DOI IOISIIIIIIIIIIIIIIOIIOIOIOIIIOIIOIIOIOIOIIOIUIOIOTIICTOIOITI IIT TOTO ITI ISIS ISM 


CLEAR EVERYTHING 
7SET PRIORITY TO 7 


;SAVE XMIT VECTOR 

;SAVE RECEIVE VECTOR 

SAVE CLOCK VECTOR 

;SAVE XMIT PSW VECTOR 

SAVE RECEIVE PSwW VECTOR 

SAVE CLOCK PSW VECTOR 

;POINT TRANSMIT VECTOR TO TRANSMIT ROUTINE 
3NO MULTIPLE INTERUPTS ALLOWED 

;POINT RECEIVE VECTOR TO RECEIVE ROUTINE 
NO MULT INTERUPTS 


; I 
:1S CONSOLE iS toe TEST? 
IF NOT SKIP CLOcK SET UP 
iz YES, ARE CLOCK TEST DISABLED? 
F YES, SKIP CLOCK SET UP 
:POINT VECTOR TO CLOCK INTERRUPT ROUTINE 


:NO MULT INTERUPTS 
ENABLE CLOCK INTERRUPTS 
;SET MAINTENANCE WRAP 


7** DELAY ENOUGH TIME TO ALLOW ANY CHARACTERS 
;** THAT MIGHT BE IN THE PROCESS OF BEING 

hed #4 by TO FINISH AFTER MAINTENANCE 

7** WRAP FOR THE UART UNDER TEST IS ENABLED. 
:** CHECK POR RECEIVER DONE 


;** READ TO CLEAR DONE 
[ENABLE TRANSMIT INTERRUPTS 
SENABLE RECEIVE INTERRUPTS 
[CLEAR XMIT INTERRUPT COUNTER 


OUNTER 
:CLEAR A REGISTER FOR TEST DATA USE 
ZCLEAR TIMER 

[POINT R2 TO RECEIVE DATA STORAGE 
SEND FIRST CHARACTER 

SET PSwW TO PRIORITY 3 


;WAIT FOR INTERRUPTS 
STALL 


STALL 
ADD INSTRUCTIONS ARE USED TC LENGTHEN LOOP TIME 
; TO COVER THE SLOWEST SAUD RATE ON THE FASTEST CPU 


FINISHED ENTIRE TRANSMISSION 
;BR, IF INTERRPUTS ARE DISABLED (FINISHED) 


Ae 
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14 013426 
2787 013430 
2788 
2789 013432 
2790 013440 
2791 013442 
2792 
2793 013444 
2796 
2795 


2796 
2797 
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000005 
104107 
026767 
001402 
000005 


104110 


167606 








167000 
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TEST Dill=<W LOGIC BY EXERCISING THE KMIT,REC, @ CLOCK 


3g: 


RESET 

ERROR+107 

CMP XMTCNT ROVONT 
BEQ 4 

RESET 

FRROR+7 10 


;CLEAR EVERYTHING 
; TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST 


; COMPARE THE NUMBER OF INTERRUPTS 
;BR, IF EQUAL 
;CLEAR EVERYTHING 


RECEIVER DID NOT GET FULL TRANSMISSION 
: IF RCVCNT=0, NO DATA RECEIVED 
IF RCVCNT=?, THEN (XMTCNT=-RCVCNT) 
EQUALS THE NO, OF INTERRUPTS LOST. 


































2799 

2800 

2801 013446 005767 167152 
2803 013454 032777 000100 
2804 013462 001004 

2805 013464 005767 166754 


000005 
2811 013476 012700 002454 


2816 013512 032767 000001 
2818 013522 122701 000020 
2819 013526 001770 
2820 013530 032701 000040 
2821 013534 001763 
2822 013536 000405 
2824 013540 014067 165262 
2825 013544 010167 165254 
2826 013550 104111 


2828 013552 010377 167072 
2829 013556 010477 167062 


1404 

2844 013646 042777 000100 
000402 

2846 013656 110177 166760 
005000 
2848 013664 000002 


2850 013666 017722 166744 
2851 013672 005267 166542 
2 0136 005000 


1665 36 


MAIN. MACRO M111 20-SEP-79 10:37 
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165356 


167262 


167056 
167044 
167070 


167152 


166764 


PAG 


4$: 


5$: 


COMP : 
9$: 


8$: 


6$: 


7$: 


ae 


TST CTSTFL 
S$ 
BIT #BIT6, aSwR 
BNE 5$ 
TST CLKCNT 
BNE 5$ 


ERROR+113 

RESET 

MOV ~ he RO 
CLR 

CMP (h0)*, oR) 


R1 
BIT a 
CMPB #20,R1 

9$ 


BEQ 

BIT #BITS,R1 

BEQ COMP 

BR 7$ 

MOV -(RO) , SBDDAT 
MOV R1,$GDDAT 
ERROR+111 


MOV R3,aTVECT 

MOV R4,a@RVECT 

MOV R5,aRTCVT 

MOV STPSW,aTPSw 
MOV SRPSW, @RPSwW 
MOV SCPSW,a@RTCPSW 
JMP ENDEV 


INC _— 

BIT Sa 
CMPB — 

BIT #B1T5,R1 

BEQ X CONT 

BIC on. -@TCSR 


B. 
MOVB aie ,@TBUF 


MOV @RBUF , (R2) + 
INC RCVCNT 
CLR RO 


CLKCNT 





ee ee ee Se ne hn ge ee 
E 109 | 


SEQ 0082 


:1S CONCOLE UNDER TEST? 

;1F NOT, SKIP CLOCK COUNT CHECK 

:IF YES, ARE CLOCK TESTS 6 ei 

31F YES, SKIP CLOCK COUNT CHECK 

“CHECK FOR AT LESST ONE CLOCK INTERRUPT 
;BR IF INTERRUPTS OC CURRED 


;NO CLOCK INTERRUPTS IN EXERCISER 


CLEAR EVERYTHING 

;LOAD RECEIVED DATA POINTER TO RO 
;SET UP REGISTER FOR COMPARISON 

+ parr XMIT & RCV DATA 


F NOT EQUAL 
UNCREMENT COMPARE DATA 
311/44 Ay 
YES SKIP 
sSKIP 20 DATA IF 11/44 
-SKIP 20 


; SK 

FINISHED CHECKING RECEIVED DATA? 
;BR, IF NOT FINISHED 

;BR TO END OF TEST 


;STORE BAD DATA FOR ERROR REPORT 
;STORE GOOD DATA FOR ERROR REPORT 
;DATA COMPARE ERROR IN EXERCISER 


;RESTORE XMIT VECTOR 
SRESTORE RECEIVE VECTOR 
RESTORE CLOCK VECTOR 
TRESTORE XMIT PSW VECTOR 
RESTORE RECEIVE PSwW VECTOR 
RESTORE CLOCK PSW VECTOR 
:GOTO NEXT TEST 


; INCREMENT XMIT INTERRUPT COUNTER 
; INCREMENT TEST DATA 
311/44 CPU 
; TEST ALL DATA 
; CHECK DATA 'S 7 
T XMIT “ 


;DO NO I 
; SEND DATA PATTERN FROM 00 --> 37 


. NABLE 

;RETURN, WITHOUT SENDING ANY MORE DATA 
;SEND NEW CHARACTER 
;CLEAR TIMER 

: ETURN 


STORE RECEIVED DATA 

INCREMENT RCV INTERRUPT COUNTER 
“CLEAR TIMER 

> RETURN 


; INCREMENT CLOCK INTERRUPT COUNT 








&-.. 
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TEST DL11=W LOGIC BY EXERCISING THE XMIT,REC, & CLOCK 
2856 013706 000002 RT] 
2857 


;RE TURN 


— 


SEQ 0083 


Sid a Ss Ee ears 
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145 TEST DL11=wW LOGIC BY EXERCISING THE XMIT,REC, & CLOCK SEQ 0084 
2859 DOSS OISIOIIGIUIIOIIOIDIOIIIOIIIDIDIDIOIOIOIOIUIOIDIDIDIDIDIOIDIDINIDIDIDIDIDIDIDIDIDIDIDIDIDIDIOIDIDIDIDIDIDIDIDIDIDIDIDISIOIOE 
Spot : WRAPAROUND TESTING= AUTO INITIATION OF T/A CONSOLE TEST 
2862 
2863 
2864 176500 RCSR58 = 176500 
2865 176502 RBUF58 = 176502 
2 176504 TCSR58 = 176504 
2867 176506 TBUF58 = 176506 
2868 003014 BGNADD = DEVADR 
44 024746 ENDADD = ENDADR 
Efe DOOR IOIISIOIIOISIOIOIOIDIOIOIIOIOISIIOIOIIOIOIOICIOIOIOISIOIOI IIIT OIRO OTT OST ISS 

t*TEST 46 TEST CONSOLE WITH WRAP AROUND 
CDR IOIIIOIIOIOIUIOIOIOICIOIOIOIOISIOIOIIOICIOIOIOIOICIIOI TOIT IO TOS TTA ISAS AS ASAI ASSAASAAACA 
013710 000004 TST46: SCOPE 
2872 OIC IDIIIIOIOIOIUIDIDIIIUIDIDIOIUIOIDIDIDIOIDIOIOIUIOIOIOISIOIOIDISIDIOGIIDSISISISIDIFISISIDISISIOIISISIDIGISISIOISISIDIDISISIOI GIS I 
2873 ; 
ore ; MAIN LINE TEST 
2876 : THIS TEST PUTS COMMANDS OUT OVER THE SERIAL LINE WHICH IS WRAPPED 
4h ; AROUND TO THE CONSOLE AND RECEIVES THE RESPONSES 
2879 : CONTROL P IS SEND TO GET THE CONSOLE'S ATTENTION AND THEN 
2880 ; T/ACA FOR APT) IS SENT. SINCE THE CPU IS HALTED DURING THE TESTING 
2881 ; THE PROGRAM CAN NOT SEE THE CHARS RETURNING, THUS THE PROGRAM WILL 
2882 :; SIT IN A LOOP WAITING FOR A ‘8B"' TO BE PRINTED BY THE CONSOLE AS A 
2883 ; SIGNAL TO APT THAT THE TESTING IS DONE. ALSO SINCE THE TESTING 
2884 ; INVOLES WRITTING TO THE CPU'S MEMORY A CHECKSUM IS CALCULATED AND THE 
2885 ; MEMORY TO BE USED INSIDE THIS PROGRAMS SPACE IS SAVE BEFORE TESTING 
coop ; AND RESTORED AFTER TEST WITH ANOTHER CHECKSUM CALCULATION 
2888 TOGO EEO SISO IOSOIEISIIIIISIIIUIOOUIEIUIUIDIUIOOOUEIODUDO DE rr iintnns 
2889 
2890 
2891 013712 032777 000004 165120 WRAP: BIT #B1T2,aSwR ;RUN THIS TEST ONLY IF 
Sook 013720 001451 BEQ 10$ :SW BIT 2 IS ON 
2894 013722 016767 164050 166504 MOV PSwW,SAVEPS ;SAVE OLD PSW 
2895 013730 012767 000340 164040 MOV #340 ,PSW ;PUT IN NOW PSW 
2896 013736 0127f0 002432 MOV #JIMSTK,SP ;USE MY STACK (SO NO CLOBER) 
2898 013742 005067 166372 CLR LOC1 
2899 013746 012767 000100 166366 MOV #100,L0C2 : TIMING LOOP COUNTERS 
Sono 013754 004567 000274 JSR RS, SAVETE Gg SAVE LOCATIONS T/A WRITES 
2903 013760 9004567 000076 JSR RS,CHKSUM ;CALCULATE CHECKSUM 
soos 013764 010467 166446 MOV R4,0LDSUM 7 SAVE OLD CHECKSUM 
2906 013770 012700 002564 MOV #CNTLP,RO 
stad 013774 004567 000102 JSR RS,PUTLIN ;SEND OUT CONTROL P 
2909 014000 012700 002566 MOV #PROMPT ,RO 
2910 014004 004567 000124 JSR RS,GETLIN ;GET CRLF CONSOLE>>> 


2911 
2912 014010 012700 002610 MOV #TA,RO 
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Siz 014014 
ay 014020 
2917 014024 
2918 

2919 014030 


004567 


2924 014050 


012700 
005004 
062004 
022700 
001374 
000205 


2967 014132 
2968 
2969 


R5,PUTLIN 
R5,GETB 
RS ,RESTTE 
R5,CHKSUM 
R4,0LDSUM 
10$ 


#1000,SP 
SAVEPS ,PSwW 
$EOP 


;SEND OUT T/A<CRLF> 
;GET THE A FROM ''=TESTB’’ 


RESTORE LOCATIONS T/A WRITES 


;RECALCULATE CHECKSUM 


;RETURN THEIR SP 
;RETURN PSW 
;BR TO END OF PASS ROUTINE 


FREAK RE RREA REE EEE RE REAERR EERE AEERERRERAEREREEERER EERE RERREENR EE ED 


; ROUTINE TO CALCULATE CHECKSUM ON PROGRAM 


: INPUT CONDITIONS 


ADDRESS TO START CHECK SUM (INCLUSIVE) 
ADDRESS TO END CHECK SUM (EXCLUSIVE) 


BGNADD 
ENDADD 


REG4 = 


OUTPUT CONDITIONS 


CHECK SUM 


SERRE EERE REE REE ERE ERE EEE ER EERE EEE EER EERE ERE EERE REE RE ER EE 


#BGNADD ,RO 
R4 


(RO) +,R4 
ee 


R5 


;GET STARTING ADDRESS 
RESET SUM 

;ADD WORD TO SUM 
;CHECK FOR END 

:1F NOT DONE LOOP 
;DONE RETURN 


DIRE REE KEE REE REE ERE REE EERE ERE Re 


; THIS ROUTINE OUTPUTS TO THE SERIAL Les STARTING AT 
> 


; THE ADDRESS IN REGO UNTIL IT HITS A <3 


’ 
FERRER ERE RE KEKE EKER RARER ERE ERE ERE ERE ERE ER EH 


000062 
000154 
000260 
000026 
166376 
001000 108: 
166360 163720 
000316 
003014 CHK SUM: 
1$: 
024746 
PUTLIN: 
000122 1$: 
000200 162364 
162360 
177750 
10$: 


(RO)+,R1 

10$ 

R5,TIMER 
SO1T7 CSAS 


R1, TBUF 58 
PUTLIN 
R5 


GET DATA 

sEND OF DATA 
;PROVIDE FOR TIMOUT 
TEST FOR XMIT READY 
WAIT FOR XMIT READY 


CATA AAAARRAEARAARRARARRRA EERE ROKER RARE KRAERRRERRR ENR AER RRR EHD 


SEQ 0085 
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2970 : 
2971 : THIS ROUTINE INPUTS A CHARS FROM THE SERIAL LINE AND COMPARES 
346) : IT WITH THE EXPECTED VALUES POINTED TO BY REGO UNTIL NULL<00> 
2974 TEGO IEISISISII IO ISIISIIIIIIIIIIOOUIOIUICISISISIIIOIDIDIIIOIIDISIEISISISOISIIOI SDI IDI ISIE 
2975 
2976 
2977 014134 112001 GETLIN: MOVB ai R1 ;GET EXPECTED CHAR 
2978 014136 105201 INCB 
2979 014140 001416 BEQ bs 7I1F NULL EXIT 
2980 014142 105301 DECB R1 
2981 014144 567 000064 1$: JSR RS,TIMER ;PROVIDE FOR TIMOUT 
2982 014150 032767 000200 162322 BIT #BIT7,RCSR58 ; TEST FOR REC READY 
2983 014156 001772 BEQ 1$ zWAIT FOR REC READY 
0141 116702 162316 MOVB RBUF 58,R2 
2985 014164 042702 000200 BIC #BIT7,R2 ; STRIP PARITY 
2986 014170 120102 CMPB R1,R2 SARE THEY THE SAME 
2987 014172 001760 BEQ GETLIN + SAME GET MORE 
2988 014174 000000 HALT sNOT SAME HALT 
2989 014176 000205 10$: RTS R5 RETURN 
2990 
2991 
2992 FOROS IOROIOSO OSORIO AAI ASASASII ASIA IAS ASIA A AAA IAA ASIA A AIA IIASA SICA AI AAA AS 
2993 : 
2994 ; THIS ROUTINE INPUTS CHARS UNTIL IT GETS THE CHAR ‘'B"' 
2995 ; AND THEN RETURNS 
2997 TGCS IOIISIIIIUIIIDIDIDIUIDIOIO ISIS IDIDIDIDOIDIOOIDIIUISIEIUIDISIIOIOII EINE 
2998 
2999 
3000 014200 004567 000030 GETB: JSR RS,TIMER OUT TIMING LOOP QUT 
3001 014204 032767 000200 162266 BIT #B1T7,RCSR58 TEST OFR REC READY 
3002 014212 001772 BEQ GETB “NOT DONE YET 
3003 014214 116702 162262 MOVB +h R2 
3004 014220 042702 000200 BIC #BIT7,R2 ;STRIP PARITY 
3005 914224 122702 000102 CMPB #102, fy: ; CHECK FOR ‘8B"' 
3006 014230 001363 BNE GETB sNOT vo. REPETE 
itd 014232 000205 RTS R5 ;WAS *B'' RETURN 
3009 OIRO IO IIISIOISIOICIOIOIOIOIOIOIOIOIOIOIOIOIOISIOIOIOIOIOIOIOIO IOI TOROS TORS AAS AAAI ASAI SIA SI AAI SSAAAAA. 
3010 : 
3011 ; THIS ROUTINE IS USED AS A TIME OUT FEATURE 
3012 ; WHEN THE TIMING LOOPS BOTH REACH 0 THIS ROUTINE WI! 
wiz 3 CAUSE A HALT 
3015 eTTT TT TTT TTT ttt titi ti titi it titi titi iti titi iti titi iit iti titi titi titi tits 
3016 
3017 
3018 014234 005367 166100 TIMER: DEC LOC1 
3019 014240 1004 BNE 10$ ;DECREMPNT TIMING LOOPS 
3020 014242 005367 166074 DEC LOC2 
3021 014246 001001 BNE 10% 
3022 014250 000000 HALT IF ZERO THIS ROUTINE 
4 014252 000205 10$: RTS R5 sEXECUTED R3 TIMES 
3025 
3026 OIIOIIOIUIIDIOIIIIIDIOIOIUIOIUIDIDIUIOIUIDIOIIUIUIDIOIUIDIUIUIUIDINIIUIDIOIDOIIUIDIUIUIUIOIIOIDIIIDIOI ODIO Stott 
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2 
3033 014254 
30 


3050 014310 


016767 


016767 


000205 


163520 
000002 
002346 


024746 


166030 
000002 
002346 


024746 


166062 


163462 


20-SEP-79 10:37 PAGE 110-3 


> THIS ROUTINE SAVES THE LOCATIONS WRITTEN BY THE T/A CONSOLE TEST 
; SO THEY MAY BE RESTORED LATER 


° 
FARAAARAEARAAAAAEAARRAREREAAARREAARAARERAEAAAAAARAARARARAAAARAARARAAER REED 


SAVETE: 


1$: 


0,SAVEO 
#2,R2 
#SAVLOC,R1 
(R2),(R1)+ 
R2 
R2,MENDADD 
i$ 

R5 


;SAVE LOCATION 0 

SET UP INDIRECT PNTER 
;SET UP STORAGE LOC. PNTER 
;GET WORD AND SAVE 

;DONT ROT IN ANY BITS 

;SET NEXT ADDRESS 

;SEE IF AT END 

NO REPETE 


LRA AREER E REE REERERAERARRERARREARAARRARARAARRARERAARAAAARRERER EEE 


: THIS ROUTINE RESTORES THE SAVED LOCATIONS THAT T/A WRITES INTO 


. 
FREER REE E ERE RREEREEE EEE EEEEE REE E REE 


RESTTE: 


1$: 


SAVEO,0 
#2,R2 
#SAVLOC,R1 
(R1)+, (R2) 
R2 
R2,MENDADD 
1$ 

R5 


:SET UP INDIRECT PNTER 
;SET UP STORAGE LOC. PNTER 
:GET WORD AND RESTORE 


;DONT ROT IN ANY BITS 
;SET NEXT ADDRESS 
;SEE IF AT END 
[NO REPETE 






SEQ 0087 








-MAIN. 


146 


MACRO M1111 


TEST CONSOLE WITH WRAP AROUN 


3062 

3063 

3064 

3065 014344 
3066 014350 
3067 014354 
3068 014362 
3069 014364 
3070 014370 
er 014374 


3076 014470 
014473 
014476 
014501 


164432 
164522 
166250 


177322 
166230 
167450 


164374 
164462 
100000 


014470 
000042 


164514 


164454 
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ENDEV: 


NOE OP : 


.SBTTL 


RRR ROI ROI IORI IRI AAAAIA AISI ISISISIS ASIII IAI IAISSSSSIA IAA ACA. 
“ kINCREMENT THE PASS NUMBER ($PASS) 

3*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO GOAGIN 


$EOP: 
SCOPE 
CLR $STSTNM ::ZERO THE TEST NUMBER 
INC $PASS :: INCREMENT THE PASS NUMBER 
BIC #100000, $PASS 7:DON'T ALLOW A NEG. NUMBER 
DEC (PC) + :3LOOP? 
$EOPCT: .WORD 1 
BGT SDOAGN ss VES 
MOV (PC)+,a(PC)+ ; RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE ~ENDMG 7a TYPE “END PASS" 
$GET42: MOV af42,R0 ;GET MONITOR ADDRESS 
BEQ SDOAGN + BRANCH IF NO MONITOR 
RESET ::CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3:G0O TO MONITOR 
NOP 7: SAVE ROOM 
NOP : FOR 
NOP 7zACT11 
$DOAGN: 
JMP a(PC)+ 7 RETURN 
$RTNAD: .WORD GOAGIN 
SENULL: fA -1,-1,0 zs NULL CHARACTER STRING 
ENDMG: .ASCIZ <CR><LF>/END PASS /. 


END OF DEVICE PASS ROUTINE 
EVEN 


CLR STSTNM ;CLEAR TEST NO. COUNT FOR SCOPE ROUTINE 
INC SDEVCT S INCREMENT DEVICE COUNTER 
CMP TMP2 , SDEVCT ZALL 7a TESTED 

NOE OP NO 


MP WRAP “EXECUTE WRAP AROUND AFTER ie DEVICES 


CLR CTSTFL ;CLEAR CONSOLE UNDER TEST FLA 
JMP TSTDEV :GO TEST NEXT DEVICE 


END OF PASS ROUTINE 


SEQ 0088 
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END OF PASS ROUTINE SEQ 0089 


164366 GOAGIN: CLR $DEVCT :CLEAR DEVICE COUNT 
000001 166112 CMP “1S THERE 0 ONLY ONE DEVICE UNDER TEST? 
001000 ae MRESET STACK POINTER 

3083 014524 167442 ST :GO DO ANOTHER PASS 


3084 
3085 014530 164344 : ;CLEAR UNIT NUMBER 
a 014534 167234 


308 

3088 014540 : MOV(SP),-(SP) ;COPY RETUN PC 

3089 014542 MOV @(SP)+, (SP?) ;MOVE NEW PSW TO STACK 
3090 014544 000002 ADD #2,~(SP) ADJUST JSR RETURN 

3091 014550 00000 RTI ;POP RETURN PC & NEW PSW 


3092 
3093 ; SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 


3094 
3095 014552 CATCH: MOV (SP)+,RO ;GET ADDRESS OF TRAP VECTOR + 4 
000004 S #4 ,RO [ADJUST TO POINT TO TRAP ADDRESS 
166036 MO RO,BDVECT ;STORE TRAP OR INTERRUPT ADDRESS 
016667 000002 166026 MO 2(SP) ,OLDPC [GET PC WHERE TRAP OR INTERRUPT OCCURRED 
104712 ERROR+112 [REPORT ERROR 


3100 
uy 4h C14574 000000 HALT ;PROGRAM MUST BE RESTARTED AT THIS POINT 
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END OF PASS ROUTINE SEQ 0090 
3104 
3105 DS UII III IOI IIIS III IIIUIDIIUIUISIIIOIOIIIUIOI IOI OOOO TTI 
3106 s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
3107 : *SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 
3108 ;*AND GO TO SERRTYP ON ERROR 
3109 + * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3110 *SW15= HALT ON ERR 
3111 7*SW13=1 INHIBIT ERROR TYPEOUTS 
3112 + *SWO9=1 LOOP IN ERROR 
3113 7*CALL 
3114 :* ERROR+N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
3115 [IORI IO ROR IUCR ICRI ICICI IOI IORI OR IOS IAA IAIAISIISSIIASISSISSISSIAASAS AIS AIA 
3116 
3117 014576 $ERROR: 
3118 014576 105267 164201 7$: INCB SERFLG :SET THE ERROR FLAG 
3119 014602 001775 BEQ 7$ ;DON'T LET FLAG GO TO ZERO 
3120 014604 016777 164172 164230 MOV $STSTNM,@DISPLAY = DISPLAY TEST NUMBER AND ERROR FLAG 
3121 014612 005267 164174 INC SERTTL ; INCREMENT ERROR COUNT 
3122 014616 011667 164174 MOV (SP) , SERRPC GET ADDRESS OF ERROR INSTRUCTION 
3123 014622 162767 000002 164166 SUB #2, SERRPC 
3124 0 117767 164162 164156 MOVB @SERRPC,SITEMR ;STRIP AND SAVE THE ERROR ITEM CODE 
3125 014636 032777 020000 164174 BIT #B1T13,aSWR + SKIP TYPEOUT IF SET 
3126 014644 001004 BNE 20$ ‘SKIP TYPEOUTS 
3127 014646 004767 000106 JSR PC,SERRTYP :GO TO USER ERROR ROUTINE 
3128 014652 104401 001063 TYPE SCRLF 
3129 014656 20$: 
3130 014656 122767 000001 164222 CMPB #APTENV, SENV ;RUNNING IN APT MODE 
3131 014664 001007 BNE 2s :NO, SKIP APT ERROR REPORT 
3132 014666 116767 164122 000004 MOVB SITEMB,21$ :SET ITEM NUMBER AS ERROR NUMBER 
3133 014674 004767 000562 JSR PC, SATY4 ;REPORT FATAL ERROR TO APT 
3134 014700 000 21$: BYTE O 
3135 014701 000 -BYTE 0O 
3136 014702 000777 22$: BR 22$ ;APT ERROR LOOP 
3137 014704 005777 164130 2$: TST @SWR ;HALT ON ERROR 
3138 014710 100001 BPL 3$ sSKIP a CONT INUE 
3139 014712 000000 HALT HAL ON ERROR! 
3140 014714 104406 3$: CKSWR ;TEST FOR CHANGE IN SOF T-SWR 
3141 014716 032777 001000 164114 BIT #B1TO9,aSWR :LOOP ON ERROR SWITCH SET? 
3142 014724 001402 BEQ 4 IF NO 
3143 014726 016716 164056 MOV $SLPERR, (SP) “FUDGE RETURN FOR LOOPING 
3144 014732 005767 164122 4$: TST SESCAPE ;CHECK FOR AN ESCAPE ADDRESS 
3145 014736 001402 BEQ 5$ :BR IF NONE 
3148 awe 016716 164114 $s MOV SESCAPE, (SP) ;FUDGE RETURN ADDRESS FOR ESCAPE 
3148 014744 022737 014450 000042 CMP HSENDAD , 0442 ;ACT-11 AUTO-ACCEPT? 
3149 014752 001001 BNE 6$ ;BR IF NO 
3150 014754 000000 HALT sYES 
3151 014756 6$: 
s126 014756 000002 RTI RETURN 


rm. 
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END OF PASS ROUTINE 


3155 
3156 


3157 


014760 


014774 
014776 


104401 
010046 


005000 
153700 
001004 


016746 


001063 


001014 


164014 


001146 
000004 


001063 
000004 


001063 


001063 


015110 
040 


N ? 
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SEQ 0091 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


RARER EEA RARE AERA AERA AAAAAAAAEREAAEEAERREEAREEEREER EH 


TRTHIS ROUTINE USES THE “‘ITEM CONTRUL ®”TE"’ (SITEMB) TO DETERMINE WHICH 


:*ERROR IS TO BE REPORTED. 


IT THEN OBTAINS, FROM THE ‘ERR 


RROR TABLE'’ (SERRTB), 


[*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


1$: 


2$: 
3$: 


4$: 
5$: 
6$: 


7$: 


000 8$: 


-SCRLF 
RO,-(SP) 


R 
a4$1 TEMB RO 
1$ 


SERRPC ,~(SP) 


R 
#SERRTB,RO 
(RO) +,2$ 
3$ 


-SCRLF 
(RO) +,4$ 
5$ 

0 

, SCRLF 
(RO) ,RO 
7$ 
(SP)+,RO 
, SCRLF 
PC 
@(RO)+,~(SP) 
(RO) 

6$ 


8$ 
7$ 


zc" CARRIAGE RETURN'' & "LINE FEED’ 
: SAVE R 

;z;PICKUP THE ITEM INDEX 

sc 1F ITEM NUMBER IS ZERO, JUST 

3 TYPE THE PC OF THE ERROR 

77 SAVE SERRPC FOR TYPEOUT 


; ERROR ADDRESS 
++G0 TYPE=-OCTAL ASCII(ALL DIGITS) 


:GET OUT 
; ;ADJUST THE INDEX SO THAT IT WILL 
oe WORK FOR THE ERROR TABLE 


FORM TABLE POINTER 
IPICKUP “ERROR MESSAGE’’ POINTER 
:zSKIP TYPEOUT IF NO POINTER 
+3 TYPE THE “ERROR MES 
ae * nm oth er. POINTER GOES HERE 
32"'CARR RETURN'' & ‘LINE FEED" 
: PICKUP. DATA — POINTER 


iz TYPE THE ‘DATA HEADER" 
32" DATA HEADER’* POINTER GOES HERE 
32"'CARRIAGE R 

3zPICKUP ‘DATA eal POINTER 
+260 TYPE THE DAT 


ORE RO 
:3"'CARRIAGE RETURN’’ & "LINE FEED*’ 
TURN 


2 SAVE a(RO)+ FOR TYPEOUT 

O TYPE--OCTAL ASCII(ALL DIGITS) 
Be page ANOTHER NUMBER? 
TI TYPE TwO(2) SPACES 


; LOOP 
32TWO(2) SPACES 
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.SBTTL POWER DOWN AND UP ROUTINES 


TDD ASIII ISIISIOIIOISIOISISIICIOIOIUIOIIIDICIOIUITIDIDIDIOIIUIOIIDIIIOIOIITITIDID III TOI IE 
7*POWER DOWN ROUTINE 
SEES ISIS IOI EIEIO IOIIOISIIDIOIISOIUIUIOITIDIIOI IIIT TOT TTT TE 
015254 000024 3 MSILLUP ,@A#PWRVEC ;SET FOR FAST UP 
000340 000026 #340, “aAPURVEC 2 ;PRIO:7 


RO ON STACK 


WWr— 


@SWR ON STACK 
6 sSAVE SP 
015166 000024 #SPWRUP ,AAPWRVEC ;SET UP VECTOR 
;HANG UP 


RVRSENSKENVSVE 


leleolelelelel=) 

SS 

PVP DVIPS TTT 
ms 4 4s 9 9s 9 9 3 9 YY YS 


RIO RCI ICICI IOI III IATA AIA AISI IAA ISIISSISSISSSSAISSS AISI AS ASSAM. 
3; *POWER UP ROUTINE 
Paadabalabalabahabatttctototstetelel t dalabelohabahalehotelebetobsiabobstalalaipboioiehejelheieeieiaialabalalaiebebeie 
015254 000024 MSILLUP ,@APWRVEC ;SET FOR FAST DOWN 
MO SSAVR6, SP :GET SP 
163634 (SP) +,@SWR :POP STACK INTO a@SWR 


POP STACK INTO R4 
POP STACK INTO R3 
;POP STACK INTO R2 
;POP STACK INTO R1 
;POP_ STACK INTO RO 
015114 000024 #SPWRON, AAPWRVEC ;SET UP THE POWER DOWN VECTOR 
000340 000026 #340, a4PWRVEC+2 ;PRIO:7 
;WAIT LOOP FOR THE TTY 
1$: SWAIT FOR THE INC 
BN 1$ OF WORD 


SREPORT THE POWER FAILURE 
SPWRMG: . ;POWER FAIL MESSAGE POINTER 


$SILLUP: ; THE POWER UP SEQUENCE WAS STARTED 
BR . ; BEFORE THE POWER DOWN WAS COMPLETE 
$SSAVR6: 0 ;PUT THE SP HERE 
3202 pieses 072 SPOWER: .ASCIZ <15><12>' POWER" 


015270 
3 
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POWER 


3205 
3206 


3207 


MA 
DOWN 


CRO M 
AND 


015272 


M1111 
UP ROU 


104406 
032777 
001052 
000416 


013746 


040000 


000004 
015332 
177060 
000004 
000004 


163435 
001000 
163424 
163407 


000001 
163346 
163344 


163536 


000004 


163462 
163420 


163464 


163365 
163404 
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.SBTTL SCOPE HANDLER ROUTINE 


—MASAAAAAASASLALASALALESALSASASALEAESAL ALARA ASA LAR ASA SSS ASSESSES SS 
ATHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPILAY<7:0>) 
:*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

is THE SWITCH ed oe tee BY THIS ROUTINE ARE: 


3*SW1 
7 *Sw09=1 LOOP ON ERROR 
7 *CALL 
3* SCOPE :; SCOPE=I0T 
$SCOPE: 

CKSWR TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #B1T14,aSWR 33 LOOP ON PRESENT TEST? 

R sYES IF SwW14=1 


BNE $OV 
;HAHAHSTART OF CODE FOR THE XOR TESTERMMAAH 
$XTSTR: BR 6$ sil RUNNING ON THE "‘XOR'' TESTER CHANGE 
THIS INSTRUCTION TO A‘ NOP=240) 
MOV @#ERRVEC,-(SP) ::SAVE THE ‘ear OF THE ERROR VECTOR 


MOV #5$, AERRVEC i336 FOR T 
TST a#177060 TIME OUT ON XOR? 
MOV (SP) +, AERRVEC ; ;RESTORE THE ERROR VECTOR 
BR $SVLAD :GO TO THE NEXT TEST 
5$: CMP (SP) +, (SP)+ :3 CLEAR THE STACK AFTER A TIME OUT 


MOV (SP) +, @#ERRVEC + ¢RESTORE THE ERROR VECTO 
BR 7$ LOOP ON La PRE SENT TEST 
6$: ;4HAAAEND OF CODE FOR THE xOR’ TESTERMAMMA 
2s: TSTB SER +" + ¢HAS “gpa OCCURRED? 


BEQ $SVL 
BIT $51 109.aSWR +: LOOP ON ERROR? 
BEQ 4$ :;BR IF NO 
7$: — es 3zSET LOOP ADDRESS TO LAST SCOPE 
Vv 
4$: CLRB SERFLG 2 ZERO THE ERROR A 
$SVLAD: INCB $STSTNM ; COUNT TEST NUMBERS 
MOVB STSTNM,STESTN s3SET TEST NUMBER IN APT MAILBOX 
MOV (SP) ,SLPADR :SAVE SCOPE LOOP ADDRESS 
MOV (SP) ,SLPERR + SAVE ERROR LOOP ADDRESS 
CLR $ESCAPE 7 CLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVB #1, SERMAX sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV $TSTNM, @DISPLAY ; DISPLAY TEST NUMBER 
MOV SLPADR, (SP) ZFUDGE RETURN ADDRESS 


RTI SIF IXES PS 





SEQ 0093 


e 
m-e 


«MAIN. MACRO M1111 20-SEP-79 
SCOPE HANDLER ROUTINE 


3209 

3210 

3211 

3212 

3213 

3214 015444 112767 000001 
3215 015452 112767 000001 
3216 015460 000403 

3217 015462 112767 000001 
3218 015470 

3219 015470 01 

3220 015472 010146 


01 
3221 Bi eenr 105767 000206 
3223 015502 122767 000001 
3225 015512 132767 000100 


000002 

015534 005767 163326 

3231 015542 010067 163334 
3232 01 


3234 015552 166700 163324 
006200 

015560 010067 163320 

000004 


062766 000002 
3241 015610 016746 162162 
000072 


3245 015622 105767 000062 
3247 015630 005767 163252 
3249 015636 005767 163224 


000004 
3252 015652 005267 163210 
3253 015656 062766 000002 


5 7 
3254 015664 105067 000020 
3255 015670 105067 000013 
3256 0156 105067 000006 
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000236 
000226 


000220 


163376 
163367 


000004 


163274 


000016 
000004 


163216 
0000U4 


5 REAR AAA AAA EEAARARAREEERRAERAREREKHRAREAREARARRRRRARR ERE 


"SBITL APT COMMUNICATIONS ROUTINE 


FF RARER ARAEARRAARAARAAAARAARRAAAERRARAARRAAARARAARAAARRAREHHRERAAR 


$ATY1: 
$SATY3: 


SATYS: 
SATYC: 


12$: 


$MFLG: 
$LFLG: 
$FFLG: 


EVEN 
APTSIZE=200 


MOVB 
MOVB 


MOVB 


"BYTE 
BYTE 


#1,SFFLG ;TO REPORT FATAL ERROR 

#1 ,SMFLG :TO TYPE A MESSAGE 

SATYC 

#1,S$FFLG ;TO ONLY REPORT FATAL ERROR 
RO,-(SP) ;PUSH RO ON STACK 

R1,-(SP) PUSH R1_ON STACK 


ae oP ADT: pny A MESSAGE ? 
MAPTENV, SENV ; OPERAT ING UNDER APT? 

$ F NOT: BR 
iuianeepamnees: : SHOULD. SPOOL MESSAGE? 


$ -IF NOT: BR 
a4 (SP) RO GET MESSAGE ADDRESS 
#2,4(SP) [BUMP RETURN ADDRESS 
$MSGTYPE :SEE IF DONE W/ LAST XMISSION? 
1$ zIF NOT: “WAIT 
RO, SMSGAD :PUT ADDRESS IN MAILBOX 
(no) [FIND END OF MESSAGE 
$MSGAD RO :SUB START OF MESSAGE 
RO :GET MESSAGE LENGTH IN WORDS 
RO, SMSGLGT T LENGTH IN MAILBOX 
#4, SMSGTYPE TELL APT TO TAKE MESSAGE 
a4 (SP) ,4$ ;PUT MSG ADDR IN JSR LINKAGE 
#2,4(SP) BUMP RETURN ADDRESS 
177776, =(SP) “PUSH 177776 ON STACK 
PC. STYPE ‘CALL TYPE MACRO 
SFFLG ;SHOULD REPORT FATAL ERROR? 
12$ :IF NOT: BR 
SENV : RUNNING UNDER APT? 

$ :1F NOT: BR 
SMSGTYPE if INI SHED LAST MESSAGE ? 
a4(SP),$FATAL :GET ERROR # 
$MSGTYPE [TELL APT TO TAKE ERROR 
#2,4(SP) ‘BUMP RETURN ADDRESS 
SFFLG “CLEAR FATAL FLAG 
SLFLG [CLEAR LOG FLAG 
SMF LG SCLEAR MESSAGE FLAG 
(SP)+,R1 “POP STACK INTO R1 
(SP) +.RO *POP STACK INTO R1 
PC RE TURN 
0 :LOG FLAG 
0 sFATAL FLAG 


SEQ 0094 


. 
mz 
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APY COMMUNICATIONS ROUT! SEQ 0095 
3266 000007 APTENV=001 
3267 000100 APTSPOOL =100 
3268 000040 APTCSUP=040 


-— 
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APT COMMUNICATIONS ROUTINE SEQ 0096 


3271 
3272 -SBTTL TYPE ROUTINE 


MARSA RERSASAALASLLALRASASSASALSSEAR SRR SR RAS SRS ARR SARA REARS ARES SS SS 


“ #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 ee 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FE 


:*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
i*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
CAL 
eet) “USING A TRAP INSTRUCTION 
. YPE »ME SADR 3:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
$0 
: TYPE 
‘e ME SADR 
;* 
015712 105767 163141 $TYPE: TSTB $STPFLG iI THERE A TERMINAL? 
015716 100002 BPL 1$ 7;BR IF YES 
015720 000000 HALT ;HALT HERE IF NO TERMINAL 
015722 000430 BR 3$ ‘LEAVE 
015724 010046 1$: MOV RO,-(SP) 7: SAVE RO 
015726 017600 000002 MOV a2‘ SP) ,RO a ADDRESS OF ASCIZ STRING 
015732 122767 000001 163146 CMPB MAPTENV, SENV RUNNING IN APT MODE 
015740 001011 BNE 62$ >:NO,GO CHECK FOR APT CONSCLE 
015742 132767 000100 163137 BI'TB MAPTSPOOL , SENVM £3 SPOOL MESSAGE TO APT 
015750 001405 BEQ 62$ NO,GO CHECK FOR CONSOLE 
015752 010067 000004 MOV RO,61$ ZSETUP MESSAGE ADDRESS FOR APT 
015756 004767 177470 JSR PC, SATY3 : SPOOL MESSAGE TO APT 
015762 000000 61$: «WORD 0 ;MESSAGE ADDRESS 
015764 132767 000040 163115 62$: BIB MAPTCSUP , SENVM : APT CONSOLE SUPPRESSED 
015772 001003 BNE 60$ YES,SKIP TYPE OUT 
015774 112046 2$: MOVB (RO) +,-(SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
015776 001005 BNE 4$ ;;BR IF IT ISN'T THE TERMINATOR 
016000 005726 TST (SP) + IF TERMINATOR POP IT OFF THE STACK 
016002 012600 60$: MOV (SP)+,RO + URESTORE RO 
062716 000002 3$: ADD #2, (SP) ae ae RETURN PC 
016010 000002 RTI RETURN 
016012 122716 000011 4$: CMPB MHT , (SP) ;;RRANCH IF <HT> 
016016 001430 BEQ 8$ 
6020 122716 000200 CMPB ACRLF , (SP) ; BRANCH IF NOT .<CRLF> 
016024 001006 BNE 5$ 
016026 005726 TST (SP) + ;;POP <CR><LF> EQUIV 
016030 104401 TYPE ::TYPE A CR AND LF 
016032 001063 $CRLF 
016034 105067 000200 CLRB $SCHARCNT ;CLEAR CHARACTER COUNT 
016040 000755 BR 2s ;GET NEXT CHARACTER 
016042 004767 000056 5$: JSR PC, $TYPEC :GO TYPE THIS CHARACTER 
016046 126726 163004 6$: CMPB SFILLC.(SP)+ 71S IT TIME FOR FILLER CHARS.? 
016052 001350 BNE 2$ ;1F NO GO GET NEXT CHAR. 
016054 016746 162774 MOV $NULL ,- (SP) [GET # OF FILLER CHARS. NEEDED 
‘ TAND THE NULL CHAR, 
016060 105366 000001 7$: DECB 1 (SP) 3:DOES A NULL NEED TO BE TYPED? 
016064 002770 BLT 6$ 3;BR IF NO--GO POP THE NULL OFF CF STACK 
016066 004767 000032 JSR PC, $TYPEC 32G0 TYPE A NULL 
016072 105367 000142 DECB $CHARCNT 32D0 NOT COUNT AS A COUNT 
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TYPE ROUTINE TE 
016076 000770 BR 7$ ; LOOP 
;HORIZONTAL TAB PROCESSOR 
016100 112716 epeee 8$: MOVB #' ,(SP) ssREPLACE TAB WITH SPACE 
016104 767 000014 ‘ $: JSR PC,$TYPEC 3s TYPE A SPACE 
016110 132767 000007 000122 BIiB #7, $CHARCNT ; BRANCH IF NOT AT 
016116 001372 BNE 9$ ae STOP 
016120 005726 TST (SP) + :zPOP SPACE OFF STACK 
016122 24 BR 2$ ;2GET NEXT CHARACTER 
016124 105777 162720 $TYPEC: TSTB a$TPS 3;WAIT UNTIL PRINTER IS READY 
016130 100375 BPL $TYPEC 
016132 116677 000002 162712 MOVB 2(SP) ,a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
016140 105777 162700 TSTB a$TKS ;;SEE IF KEYBOARD IS TALKING. 
016144 100021 BPL 2$ ; ;BRANCH IF IT ISN'T. 
016146 017746 162674 MOV @$TKB,-(SP) T:PUSH CHARACTER ONTO STACK 
016152 042716 177600 BIC #177600, (SP) ;:BIT CLEAR TOP w * a PARITY BIT. 
016156 022726 000023 CMP #23,(SP)+ 3:SEE IF THIS IS A 
016162 001012 BNE 2$ ; ;BRANCH TO CONTINUE IF IT ISN'T. 
016164 105777 162654 3$: TSTB a$TKS ;:WAIT FOR ANOTHER INPUT. 
016170 100375 BPL 3$ ; BRANCH BACK IF NOT READY 
016172 017746 162650 MOV @$TKB,-(SP) 33PUSH NEXT CHARACTER ON STACK. 
016176 042716 177600 BIC #177600, (SP) :éBIT CLEAR TOP BYTE AND PARITY BIT. 
016202 022726 000021 CMP #21,(SP)+ SEE IF THIS IS A “Q. 
016206 1 BNE 3$ BRANCH BACK FOR MORE WAIT IF NOT. 
016210 122766 000015 000002 2$: CMPB ACR, 2(SP) 3231S CHARACTER A CARRIAGE RETURN? 
016216 1003 BNE 1$ ; BRANCH IF NO 
016220 105067 000014 CLRB SCHARCNT 33YES--CLEAR CHARACTER COUNT 
016224 000406 BR $STYPEX 7 cEXIT 
016226 122766 000012 000002 1$: CMPB ALF ,2(SP) 3721S CHARACTER A LINE FEED? 
016234 001402 BEQ $STYPEX 7 BRANCH IF YES 
016236 105227 INCB (PC) + ;;COUNT THE CHARACTER 
016240 $CHARCNT:.WORD 0 3; CHARACTER COUNT STORAGE 
016242 000207 $TYPEX: RTS PC 
3273 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DDSI IOISIIUISIOISISIOISIOIDISIOIDIOIDISIIIOIUIOIIOIOIUIOIOIOII IOI TIT TSI III TIS TOT TOTTI TTI TTT TE 
:*THIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 

: sSTYPOS~--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


i* MOV NUM, - (SP) ; ;NUMBER TO BE TYPED 

;* TYPOS 7iCALL FOR TYPEOUT 

;* BYTE oN ;iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
* -BYTE ™M ::M=1 OR O 

;* iene LEADING ZEROS 

hp ;0=SUPPRESS LEADING ZEROS 


> *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TYPOC 


:*CALL: 
MOV NUM, - (SP) :NUMBER TO BE TYPED 
* TYPON CALL FOR TYPEOUT 


i s$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> * CALL 
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016244 017646 000 
016250 116667 000001 
016256 112667 000207 
016262 062716 000002 
016266 

016270 112767 000001 
016276 112767 000006 
016304 112767 000005 
016312 010346 

016314 010446 
016316 010546 
016320 116704 000145 
016324 005404 


016342 016605 000012 
003 


016366 105367 000076 
016374 042703 177770 
016400 002 


000002 





000211 


000171 
000165 
000154 


000004 
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BINARY TO OCTAL (ASCII) AND TYPE 


-* 


: MOV 

st TYPOC 

$TYPOS: MOV 
M 


B 
$TYPOC: Aa 
$TYPON: MOVB 


1$: ROL 
BR 
2$: ROL 


6$: MOV 


8$: BYTE 


.BY 
$SOCNT: .BYTE 
SOFILL: .BYTE 
SOMODE: .WORD 


NUM ,- (SP) 


a(SP) ,-(SP) 


1(SP) ,$OFILL 
(SP) +, $OMODE +1 


#2, ( 
$TY 


SOFILL. RS 
12¢SP) ,R5 


SEQ 0098 


3; NUMBER TO BE TYPED 
7;CALL FOR TYPEOUT 


;¢PICKUP_THE MODE 

TILOAD ZERO FILL SWITCH 

3; ;NUMBER OF DIGITS TO TYPE 
> ADJUST RETURN ADDRESS 


77SET THE ZERO FILL SWITCH 

; SET FOR SIX(6) DIGITS 

3: SET THE ITERATION COUNT 

77 SAVE R3 

: SAVE R4 

77 SAVE R5 

::GET THE NUMBER OF DIGITS TO TYPE 


se ee IT IT FOR MAX. ALLOWED 
sSAVE IT FOR USE 
GET THE ZERC FILL SWITCH 
PICKUP THE INPUT ER 
ZiCLEAR THE OUTPUT WORD 
; ROTATE MSB INTO ‘'C’ 


a2 DO MSB 
;7FORM THIS DIGIT 


oP LSB OF THIS DIGIT 
jig THIS DIGIT? 


:BR 
SIGET RID OF JUNK 
3: TEST FOR 0 
iiBR IF YES. 0? 


BR 
::DON'T SUPPRESS ANYMORE Q'S 
7ZMAKE THIS DIGIT ASCII 
2 ¢MAKE oe wh NOT ALREADY 
7zSAVE FOR TYPING 

:GO TYPE THIS DIGIT 
i OUNT BY 1 


2 BR IF MORE TO DO 


:3BR_IF DONE 
: INSURE LAST DIGIT ISN'T A BLANK 
£360 DO THE LAST DIGIT 
7 RESTORE R5 
7 RESTORE R4 
7 RESTORE R3 
72SET THE STACK FOR RETURNING 


; SRETURN 

sz STORAGE FOR ASCII DIGIT 

> TERMINATOR FOR TYPE ROUTINE 
;0CTAL DIGIT COUNTER 

77; ZERO FILL SWITCH 

: NUMBER OF DIGITS TO TYPE 


~te 
m2 


3276 
3277 
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016472 


016564 
016570 


016572 
016576 


022767 


117746 
042716 


021627 
005 


000002 
004767 
021627 


000176 
162336 
162332 


162302 


017217 
017224 
161424 


017235 
162254 


162250 
177600 


000025 


017212 
000006 


000015 
000004 
000002 
000006 
001063 
162155 
000100 


177224 
000060 


162340 


000001 


162174 


000001 
162152 
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.SBTTL 


TTY INPUT ROUTINE 


5 LRA ARAAEAAERARARRAARAARAARRRARKEKRARAERERAAEREAARARARHERRARRERREA HS 


* ENABL 


LSB 


DIOR ICIS IOIIOIIOISIOIIOIOIOIOIOIISIOIOIO IOI IOI IOI IOI II TORI RTA SOAS OAS OAS ANS ACA. 

> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

[*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 


$CKSWR: 


: 
$GTSWR: 


19$: 
7$: 


9$: 


208: 


CMP 


ASWREG, SWR 
15$ 


asTkS 

15$ 
a$TKB,-(SP) 
#°(177, (SP) 
#7, (SP) + 
15$ 
$AUTOB, 41 
15$ 


-SCNTLG 

, SMSWR 
SWREG,- (SP) 
, SMNEW 

- (SP) 


=(SP) 
a$TKS 
7$ 


@$TkKB,-(SP) 
#°C177, (SP) 


(SP) ,425 
10 


P) ,@SWR 


$INTAG, 41 
15$ 
#100,a$TKS 


PC ,$TYPEC 
(SP) ,460 


sik THE SOFT-SWR SELECTED? 
CH IF NO 


CHAR THERE ? 
i DON'T WAIT AROUND 
3 SAVE TH HE CHAR 
:sSTRIP-OFF THE ASCII 


;zNO, RETURN TO USER 
7 zARE WE RUNNING IN AUTO-MODE ? 
; BRANCH IF YES 


:sECHO THE CONTROL-G (*G) 
z TYPE CURRENT CONTENTS 

:? SAVE SWREG FOR TYPEOUT 
:GO TYPE--OC TAL en DIGITS) 
PROMPT FOR NEW 

SO CLEAR COUNTER 

72 THE NEW SWR 

3: CHAR THERE? 

::1F NOT TRY AGAIN 


3zPICK UP CHAR 
7zMAKE IT 7-BIT ASCII 


31S _1T A_CONTROL=U? 

«BRANCH IF NOT 

YES, ECHO CONTROL-U (“U) 
: TIGNORE PREVIOUS INPUT 
izLET'S TRY iT AGAIN 


21S IT A <CR>? 
CH IF NO 

37 YES, IS IT THE FIRST CHAR? 
CH IF YES 


: ECHO <CR> AND <LF 

hs Pate TTY KBD INTERRUPTS? 
; BRANCH IF NOT 

: : RE-ENABLE TTY KBD INTERRUPTS 


SEQ 0099 TE 
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TTY INPUT ROUTINE SEQ 0100 TE 
016704 002420 BLT 18% oe if YES 
016706 021627 000067 CMP (SP) ,467 CHAR > 
016712 003015 BGT 18$ ; BRANCH (FY 
016714 042726 000060 BIC #60, (SP) + ;STRIP-OFF ASCII 
016720 005766 000002 TST 2 (SP) ::1S THIS THE FIRST CHAR 
016724 001403 BEQ 17$ ; / BRANCH IF YES 
016726 006316 ASL (SP) 3NO, SHIFT PRESENT 
016730 006316 ASL (SP) >: CHAR OVER TO MAKE 
016732 006316 ASi (SP) 7; __ROOM FOR NEW ONE. 
016734 005266 000002 17$: INC 2 (SP) ;sKEEP COUNT OF CHAR 
016740 056616 177776 BIS -2(SP), (SP) 33SET IN NEW CHAR 
016744 000707 BR 7$ 33GET THE NEXT ONE 
016746 104401 001062 18$: TYPE ,$QUES 33 TYPE 2?<CR><LF> 
016752 000720 —_ a. 20$ 3=SIMULATE CONTROL=-U 

; m, & 


STREAK EREERE ARERR EKER R ERE ER 


3*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


s*CALL: 
* RDCHR ;INPUT A_SINGLE CHARACTER FROM THE TTY 
te RETURN HERE >> CHARACTER IS ON THE STACK 
te ::WITH PARITY BIT STRIPPED OFF 
016754 011646 $RDCHR: MOV (SP) ,=(SP) ::PUSH DOWN THE PC 
016756 016666 000004 000002 MOV 4 (SP) ,2(SP) i: SAVE THE PS 
016764 105777 162054 1$: TSTB = a$STKS ‘WAIT FOR 
016770 100375 BPL 1$ ZA CHARACTER 
016772 117766 162050 000004 MOVB a$TKB,4(SP) 3 TREAD THE TTY 
017000 042766 177600 000004 BIC #°C<177>,4(SP) GET RID OF JUNK IF ANY 
017006 026627 000004 000023 CMP 4(SP) ,#23 *:IS IT A CONTROL-S? 
017014 001013 BNE 3$ + BRANCH IF NO 
017016 105777 162022 2$: TSTB = a$STKS zeMALT FOR A CHARACTER 
017022 100375 BPL 2$ SLOOP UNTIL ITS THERE 
017024 117746 162016 MOVB = a$TKB, - (SP) [GET CHARACTER 
017030 042716 177600 BIC #°(177, (SP) «MAKE IT 7-BIT ASCII 
017034 022627 000021 CMP (SP) +,421 “IIS IT A CONTROL-Q? 
017040 001366 BNE 2$ [:IF NOT DISCARD IT 
017042 000750 BR 1$ [:YES, RESUME 
017044 026627 000004 000140 3s: CMP 4(SP) 4140 :21S IT UPPER CASE? 
017052 002407 BLT 4$ ‘BRANCH IF YES 
017054 026627 000004 000175 CMP 4(SP) 4175 SIS IT A SPECIAL CHAR? 
017062 003003 BGT 4$ i: CH IF YES 
017064 042766 000040 000004 BIC #40,4(SP) *ZMAKE IT UPPER CASE 
017072 000002 4$: RTI +:GO BACK TO USER 


CD ROI RI RI TTT TI TI I TIKI REE EEE KEE EEE ERE REE EEE 


*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*CALL: 
se RDLIN : INPUT A STRING FROM THE TTY 
ze RETURN HERE : ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
y* +: TERMINATOR WILL BE A BYTE OF ALL O'S 
017074 010346 $RDLIN: MOV R3,-(SP) SAVE R3 
017076 012703 017202 1$: MOV ASTTYIN,R3 ZIGET ADDRESS 
017102 022703 017212 2s: CMP ASTTYINe8. .R3 ;BUFFER FULL? 
017106 101405 BLOS 4$ > BR IF YES 
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000177 
001062 
000044 


177777 
001064 


000004 
017202 


000002 
000004 


9$: 


$TTYIN: . 
$CNTLU: 


$CNTLG: 


SMSWR : 


SMNEW: 


LKB 
eASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


(SP) +, (R3) 
#177, (R3) 
3$ 


oo 
(R3) ,9$ 
I$ 

#15, (R3)+ 


#STTYIN, 4 (SP) 


0 
0 


8. 

/*U/<15><12> 
/*G/<15><12> 
<15><12>/SWR = / 


/ NEW = 


SEQ 0101 


:GO_READ act CHARACTER FROM THE TTY 
IGET CHARACTER 
S ITA RUBOUT 
2: SKIP IF NOT 
sSTVPE A?" 
C1 EAR THE BUFFER AND LOOP 
40 THE CHARACTER 


33CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
:¢ CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
TERESTORE R3 
gat THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 


; sRETURN 
:7 STORAGE FOR ASCII CHAR. TO TYPE 
RMINATOR 


: INA 
a Eta 8 BYTES FOR TTY INPUT 
SECONTR wv 


: CONTROL ‘'G’' 
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3283 


017246 


017270 
017272 
017300 


017302 


017312 
017314 
017316 


000200 


011646 
016666 
000002 


017270 
015712 
016270 
016244 
016304 


016542 
016472 


016754 
017074 
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000002 


017302 


006004 000002 


PAGE 120 


SEQ 0102 


-SBTTL TRAP DECODER 


RASS AASAASSAASALASSLSSAAESLAR SER ARE SESE SARS A RAR RRR RRR SARS ARDS SD SY 


S*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 


;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) 32 SAVE RO 
MO 2(SP) .RO + 2GET TRAP ADDRESS 
TST -(RO) CKUP BY 2 
MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
ASL RO aan’ ta FOR INDEXING 
MOV $TRPAD (RO) .RO :EINDEX T TABLE 
RTS RO :GO TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


$TRAP2: MOV (SP) ,~(SP) :zMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 7sMOVE THE PSW DOWN 
RTI sRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


ROUT INE 


$TRPAD: .WORD 


$TRAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP+4 (104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


$GTSWR ;;CALL=GTSWR TRAP+5(104405) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR TRAP+6(104406) TEST FOR CHANGE IN SOF T~SWR 


$RDCHR = ;;CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ;;CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
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ECHO TEST SEQ 0103 
3285 .SBTTL ECHO TEST 
3286 SEAR REE REE REEE RE REREEERE KR ERKREEREREREERRRE RRR 
3287 z*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED 
3288 :*AT THE CONSOLE 
3289 :*THE TEST IS HALTED BY TYPING A CONTROL-C 
3290 :*TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 
3291 SII III IIIS ISI II III III III IOI 
3292 017324 ECHO: 
3293 017324 000005 RESET CLEAR EVERYTHING, 4 
3294 017326 112777 000052 163326 MOVB #** ,aCTBUF Boge geet PROMPT '‘s 
3295 017334 105777 163314 2$: TSTB acRCSR WAIT FOR INPUT 
96 017340 100375 BPL 2$ 

3297 017342 117777 163310 163312 MOVB @CRBUF ,aCTBUF ;ECHO INPUT 
3298 017350 017700 163302 MOV @CRBUF ,RO sSTORE INPUT 
3299 017354 100023 BPL 5$ “BR IF ‘ERROR'NOT SET 
3300 017356 052701 010000 BIS #B1T12,R1 SET PARITY ERROR TEST MASK 
3301 017362 030100 BIT R1,RO CHECK FOR PARITY ERROR FLAG 
3302 017364 001403 BEQ 3$ ‘BR IF NOT SET 
3303 017366 004767 000056 JSR PC,MSG REPORT PARITY ERROR 
3304 017372 017476 MPAR 
3305 017374 006301 3$: ASL R1 SHIFT MASK TO TEST ‘R'' FLAG 
3306 017376 030100 BIT R1,R0 : TEST FOR FRAMING ERROR FLAG 
3307 017400 001403 BEQ 4$ :BR IF NOT SET 
3308 017402 004767 000042 JSR PC.MSG s;REPSORT FRAMING ERROR 
3309 017406 017507 MFR 
3310 017410 006301 4$: ASL R1 SHIFT MASK TO TEST ‘OR’ FLAG 
3311 017412 030100 BIT R1,RO TEST FOR OVERFLOW ERROR 
3312 017414 001403 BEQ 5$ ‘BR IF NOT SET 
3313 017416 004767 000026 JSR PC.MSG REPORT OVERFLOW ERROR 
3314 017422 017521 MOR 
3315 017424 042700 000200 S$: BIC #BIT7,RO CLEAR ANY PARITY BIT 
3316 017430 022700 000003 CMP #3,RO WAS INPUT CONTROL-C 
3317 017434 001337 BNE 2$ :BR IF NOT 
3318 017436 004767 000006 JSR PC.MSG REPORT PROGRAM STOP 
3319 017442 017534 MSTOP 
3320 017444 000000 HALT END OF TEST HALT 
3321 017446 000726 BR ECHO TAFTER END OF TEST HALT 
$356 ; PRESS CONTINUE TO RESTART ECHO TEST 
3324 017450 013600 MSG: MOV a(SP)+,RO PICK UP MESSAGE _fomnTen 
3325 017452 062746 000002 ADD #2,-(SP) ‘ADJUST RETURN P 
3326 017456 105777 163176 WAIT: TSTB acTCcSR WAIT FOR XMIT DONE 
3327 017462 100375 BPL WAIT 
3328 017464 112077 163172 MOVB (RO) +, aC TBUF SEND CHARACTER 
3329 017470 105710 TSTB (RO) 71S THIS END OF MESSAGE? 
3330 017472 001371 BNE WAIT ‘BR IF NOT 
Sees 017474 000207 RTS PC RETURN 
3333 017476 015 012 120 MPAR: .ASCIZ <CR><LF>/PARITY/ 

017501 101 122 111 

504 124 131 000 

3334 017507 015 012 106 MFR: .ASCIZ. <CR><LF>/FRAMING/ 

017512 122 101 115 

017515 111 116 107 

17520 000 
5 017521 015 012 117 MOR: .ASCIZ <CR><LF>/OVERFLOW/ 
017524 126 105 122 


—te 
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ECHO TEST SEQ 0104 
117 


017527 106 3 
2 123 MSTOP: .ASCIZ <CR><LF>/STOP/ 
7 120 


017532 

3336 017534 015 
017537 
017542 000 


7 
m2 
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ECHO TEST SEQ 0105 
33 
3339 
3340 -EVEN 
3341 
sr8 -SBTTL TERMINAL OUTPUT TEST 
3344 JURA ARERR EERE EEEEREEEREEEE EERE EEE 
3345 3*THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE 
3346 2 * THE OCTAL CODE 040 ==> 377 
3347 ;*32 CHARACTERS ARE PRINTED ON EACH LINE 
+ a ; *THE PATTERN IS REPEATED EVERY THREE LINES 
3350 1s deeenunnnanenececqnsaneceetonnentenennneseneneneeeeeeeeereeees 
3351 
3352 017544 012701 000040 OUTTST: MOV #40,R1 ;LOAD FIRST WRITABLE CHARACTER 
3353 017550 012700 000040 1$: MOV #40,RO LOAD CHAR COUNT PER LINE 
3354 017554 105777 163100 2$: TSTB acTCSR ;WAIT FOR DONE 
3355 017560 100375 BPL 2$ 
3356 017562 010177 163074 MOV R1,aC TBUF ; TRANSMIT A CHARACTER 
3357 017566 105201 INCB R1 ; INCREMENT CHARACTER CODE 
3358 017570 005 DEC RO [DECREMENT CHAR COUNT 
3359 017572 001370 BNE 2$ ;BR IF LINE NOT COMPLETE 
Sses 017574 004767 177650 JSR PC MSG ;SSUE CR,LINE FEED 
3362 017600 001063 $SCRLF 
3363 017602 105777 163046 TSTB aCRCSR ANY CHARACTER RECEIVED? 
3364 017606 100404 BMI 3$ SBR IF YES 
3365 017610 032701 000200 BIT #B1T7,R1 7FINISHED ONE PASS OF WRITABLE CHARACTERS? 
3366 017614 001353 BNE OUTTST ;BR IF YES 
tot 017616 000754 BR 1$ IF NOT WRITE NEXT LINE 
3369 017620 005077 163032 3$: CLR @CRBUF ;CLEAR RECEIVER 
3370 017624 000000 HAL T ;STOP TEST 
3371 017626 000746 BR OUTTST RESTART TEST IF CONTINUED 
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TERMINAL OUTPUT TES 
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3375 017630 
017633 
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PAGE 123 


m 
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/CAN NOT ACCESS TCSR/ 


/CAN NOT ACCESS TBUF/ 


/TCSR DONE NOT CLEARED WITH TBUF FULL/ 


/TCSR DONE NOT SET/ 


/TCSR DONE NOT SET WITH RESET/ 


/CAN NOT ACCESS RCSR/ 


/CAN NOT ACCESS RBUF / 


SEQ 0106 
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m2 
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TERMINAL OUTPUT TEST SEQ 0107 
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3382 -ASCIZ /CAN NOT ACCESS ikS/ 
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/BI1TO OF TCSR NOT CLEAR AFTER RESET/ 
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/CAN NOT SET BITO OF TCSR/ 
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/CAN NOT CLEAR BITO OF TCSR/ 


/RESET DID NOT CLEAR BITO OF TCSR/ 
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SEQ 0108 


122 04 101 

106 124 105 

122 040 122 

105 123 105 

124 0 

103 101 116 —M16: .ASCIZ /CAN NOT SET BIT2 OF TCSR/ 
040 116 11? 

124 040 123 

105 124 040 

102 111 124 

062 040 117 

106 0 124 

10 123 122 

103 101 116 —M17:  .ASCIZ /CAN NOT CLEAR BIT2 OF TCSR/ 
040 116 117 

124 040 103 

114 105 101 

122 040 102 

111 124 062 

040 117 106 

0 124 

1 122 

1 105 123 EM20:  .ASCIZ /RESET DID NOT CLEAR BIT2 OF TCSR/ 
105 124 040 

104 117 104 

040 116 117 

124 040 103 

114 105 101 

122 040 102 

171 124 062 

040 117 106 

040 124 103 

123 122 000 

102 111 124 EM21:  .ASCIZ /BIT6 OF TCSR NCT CLEAR AFTER RESET/ 
066 040 117 

106 040 124 

103 123 122 

040 116 117 

124 040 103 

114 105 101 

122 040 101 

106 124 105 

122 040 122 

105 123 105 

124 000 

130 115 111 EM22:  .ASCIZ /XMIT INTERRUPT AT PRIORITY 7/ 
124 040 14 

116 124 105 

122 122 125 

120 124 040 

101 124 040 

120 122 111 

117 122 111 

124 131 040 

067 000 

103 101 116 E—M23:  .ASCIZ /CAN NOT SET BIT6 OF TCSR/ 
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TERMINAL OUTPUT TEST SEQ 0109 
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3396 020724 124 EM26: -ASCIZ /BIT6 OF RCSR NOT CLEAR AFTER RESET/ 
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3397 aah EM2?: -ASCIZ /RCVR INTERRUPT WITH PRIORITY 7/ 
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3398 aSraee EM350:  .ASCIZ /CAN NOT SET BIT6 OF RCSR/ 
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TERMINAL OUTPUT TES SEQ 0110 
021050 106 040 122 
021053 103 123 122 
021056 000 
3399 021057 103 101 116 M31: .ASCIZ /CAN NOT CLEAR BIT6 OF RCSR/ 
021062 040 116 117 
021065 124 040 103 
021070 114 105 101 
021073 122 040 102 
021076 i117 124 066 
021101 040 117 106 
021104 040 122 103 
021107 123 122 000 
3400 021172 103 101 116 EM32: -ASCIZ /CAN NOT CLEAR BIT6 OF RCSR WITH RESET/ 
021115 040 116 117 
021120 124 040 103 
021123 114 105 101 
021126 122 040 102 
021131 111 124 066 
021134 040 117 106 
021137. 040 122 103 
021142 123 122 040 
021145 127 1717 124 
021150 110 040 122 
021153 105 123 105 
021156 124 000 
3401 021160 102 111 124 EM33: -ASCIZ /BIT6 OF LKS NOT CLEAR AFTER RESET/ 
021163 066 =: 040 117 
021166 106 040 114 
021171 113 123 040 
021174 116 117 124 
021177 040 103 114 3 
021202 105 101 122 5 
021205 040 101 106 S 
021210 124 105 122 5 
021213 040 122 105 5 
021216 123 105 124 S 
021221 000 5 
3402 021222 114 113 1235 EM34: -ASCIZ /LKS INTERRUPT WITH PRIORITY 7/ S 
021225 040 117 116 
021230 124 105 122 5 
021233 122 125 12¢ 5 
021236 124 040 127 ¢ 
021241 111 124 110 S 
021244 040 120 122 5 
021247 111 117 122 S 
021252 111 124 131 T 
021255 040 067 000 T 
3403 021260 103 101 116 EM35: eASCIZ /CAN NOY SET BIT6 OF LKS/ T 
021263 040 116 117 T 
021266 124 040 123 T 
021271 105 124 040 T 
021274 102 111 124 
021277 066 040 117 
021302 106 040 114 
021305 113 123 000 
3404 021310 103 101 116 EM36:  .ASCIZ /CAN NOT CLEAR BIT6 OF LKS/ 
021313 = 040 116 1i7 
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—EM37: 


EM4O: 


EM41: 


EMS2: 


EMG3: 


EM44: 





-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





/RESET DID NOT CLEAR BIT6 OF LKS/ 


/DUAL ADDRESSING ERROR/ 


/BI*6 OF LKS NOT SET AFTER RESET/ 


/CAN NOT CLEAR BIT7 OF LKS/ 


/BIT? OF LKS DOES NOT SET/ 


/RTC INTERRUPT AT PRIORITY 7/ 
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TERMINAL OUTPUT TEST SEQ 0112 
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EM45: -ASCIZ /RTC INTERRUPTS WHEN DISABLED/ 
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EM46: -ASCIZ /RTC INTERRUPT DID NOT OCCUR/ 
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EMSO: -ASCIZ /RTC DOUBLE INTERRUPT/ 


ONMNAUMANOWO 


3415 021725 122 EMS1: -ASCIZ /RESET DID NOT INTERRUPT/ 


021752 120 

3416 021755 122 EM52: .ASCIZ /RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS/ 
021760 040 
021763 124 
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022005 105 
022010 

022013 124 
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TERMINAL OUTPUT TEST SEQ 0113 


022024 
-ASCIZ /CLOCK REPEATABILITY/ 
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/XMIT INTERRUPTS WHEN DISABLED/ 


/XMIT INTERRUPTS AT PRIORITY 7/ 
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TERMINAL OUTPUT TEST 


3424 022267 
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SEQ 0114 
EM62: -ASCIZ /LOADING TBUF DID NOT CLEAR INTERRUPT/ 
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/RCVR ACTIVE NOT CLEARED WITH DONE SET/ 
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/RESET DID NOT CLEAR RCVR DONE/ 
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TERMINAL OUTPUT TEST SEQ 0115 
022535 105 101 122 
022540 040 122 103 
022543 126 122 040 
022546 104 117 116 
022551 105 000 
3430 022553 122 105 101 EM70: -ASCIZ /READING RBUF DID NOT CLEAR RCVR DONE/ 
022556 104 111 116 
022561 107 040 122 
022564 102 125 106 
022567 040 104 111 
022572 104 040 116 
022575 117 124 040 
22600 103 114 105 
022603 101 122 040 
22606 122 103 126 
022611 122 040 104 
022614 117 116 105 
022617 000 
3431 022620 122 103 126 EM71: -ASCIZ /RCVR INTERRUPTS WITH ENABLE CLEAR/ 
022623 122 040 111 
022626 116 124 105 
022631 122 122 125 
022634 120 124 123 
022637 =: 040 127 111 
022642 124 110 040 
022645 105 116 101 
022650 10 114 105 
022653 040 103 114 
022656 105 101 122 c 
022661 000 6 
3432 022662 122 103 126 EM73: -ASCIZ /RCVR INTERRUPTS AT PRIORITY 7/ D 
022665 122 040 111 D 
022670 116 126 105 
022673 122 122 125 
022676 120 124 123 : 
022701 040 101 124 
022704 040 120 122 C 
022707 111 117 122 6 
022712 111 124 131 D 
022715 040 067 000 6 
3433 022720 122 103 126 EM74: -ASCIZ /RCVR INT RQST PASSED WITH ENABLE CLEAR/ D 
022723 122 040 171 D 
922726 116 124 040 6 
022731 122 121 123 p 
022734 124 040 120 
022737 101 123 123 
022742 105 104 040 
022745 127 111 124 
022750 110 040 105 
022753 116 101 102 
022756 114 105 040 
022761 103 114 105 
022764 101 122 000 
3434 022767 EM72: 
3435 022767 122 103 126 EM75:  .ASCIZ /RCVR DID NOT INTERRUPT/ 
022772 122 040 104 
02277 111 104 040 
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TERMINAL OUTPUT TEST SEQ 0116 
23000 116 117 124 
023003 040 111 116 
23006 124 105 122 D 
023011 122 125 120 
— 023014 124 000 5 
3436 023016 122 103 126 EM76:  .ASCIZ /RCVR RE-INTERRUPTED/ 5 
023021 122 040 122 D 
023024 105 055 171 7 
023027 116 124 105 7 
023032 122 122 125 D 
023035 120 124 105 D 
023040 104 000 p 
3437 023042 122 105 101 M77:  .ASCIZ /READING RBUF DID NOT CLEAR INTERRUPT/ 
023045 104 111 116 
2305 107 040 122 
023053 102 125 106 D 
023056 040 104 111 7 
023061 104 040 116 E 
23 117 124 040 E 
23067 103 114 105 E 
023072 101 122 040 E 
023075 111 116 124 E 
023100 105 122 122 E 
023103 125 120 124 : 
023106 000 E 
3438 023107 122 105 123 —M100: .ASCIZ /RESET DID NOT CLEAR RCVR INTERRUPT/ E 
023112 105 124 040 E 
023115 104 171 104 E 
023120 040 116 117 
023123 124 040 103 E 
023126 114 105 101 E 
023131 122 040 122 E 
023134 103 126 122 E 
023137 111 116 E 
023142 124 105 122 E 
023145 122 125 120 E 
023150 124 000 E 
3439 023152 047 117 122 M101: .ASCIZ /*OR' FLAG DID NOT SET/ E 
023155 047 040 106 E 
023160 114 101 107 E 
023163 040 104 111 E 
231 104 040 116 E 
023171 117 124 040 E 
023174 123 105 124 E 
023177 000 E 
3440 023200 047 105 122 M102: .ASCIZ /*ERROR' NOT SET WITH ‘OR’ FLAG/ E 
023203 122 117 122 E 
23206 047 040 116 E 
023211 117 124 040 E 
023214 123 105 124 E 
023217 040 127 111 E 
023222 124 110 040 E 
023225 047 117 122 
23230 047 040 106 
023233 114 101 107 | 
023236 000 
3441 023237 102 122 105 M103: .ASCIZ /BREAK DID NOT XMIT ALL ZEROES/ 
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TERMINAL OUTPUT TEST SEQ 0117 
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/DATA COMPARE ERROR/ 


NUIPMIWO — ONO SOO WNWWNO (OB Ww 


BURSASSUSRRSER 
NON SNNNNUE OS 


/DATA COMPARE ERROR WITH CABLE/ 


/TIMEOUT IN EXERCISER TEST/ 


1 
1 
1 
4, 
1 
0 
i, 
2 
2 
2 
1 
1 
1 
4 
2 
0 
4 
2 
0 
0 

04 
1 
2 
0 
1 
0 
4, 
1 
2 
0 
1 
2 
1 
0 
0 
1 
1 
4, 


-OoO-' oS eS OO PR SS SS St — oad od od _— 3 Oo SS - O-" O ? 3 SH SS SS SO 


MEMNO—M—DVDOF—NMNMNONONM MNMONON" 
WOWNMMN MONO] NMNUIOWS NMMUOWSE WN ANMROWN 


/INCORRECT RECEIVE COUNT/ 


et aed etd cael a a cael et eh ce eh ee eel 
Oo] —-NNOOW—NON— 


R 


=—=N SAWAWOUN = SF SUWORRNE HS 
PAP PAR PR OR PP eRe PAN eee eee MN MMMM NM NNN NNN NNN MMe NM MMMM NN Nera tAaer 


oN —-OOMon—-oOon-o 
MWS — & NYIVYINIWWNAOVIN — WOO NHN O NNUINMWIO 


EM111: /DATA COMPARE ERROR IN EXERCISER/ 


dad end ed ad ed wd ed 
o-O0—-ONO 


nNo— 
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TERMINAL OUTPUT TEST SEQ 0118 
023511 040 105 122 
023514 91222117, —S ‘122 
023517 040sia11.-—i<‘i«tié«CS222S 
023522 040 s«d105~—S—i«ts«S130 
023525 105 i22 © 103 
023530 111 123 = 105 
023533 = 122,—S «000 
3448 023535 124 122 101. EM112: .ASCIZ /TRAP CATCHER/ 
023540 120 040 103 
023543 = 101, s«124—Ss«*108 
023546 110 105 122 
023551 000 
3449 023552 116 117 040 €M113: .ASCIZ /NO CiK INTERRUPT IN EXERCISER/ 
003555 108 iaGti«*O228 
023560 040 111 ~=# 116 
023563 = 124. s«d105-—S™=—téd122 
23566 = 122si«a125—Cs«21220 
023571 = 1204S s«040—S—sd1 
023574 116 040 105 
023577, 130-—S's«*d105-—stsédd22 
23602 103.sis11,—si(its«éd28 
023605 105 122 000 
3450 023610 042 105 122 €M114: .ASCIZ /'ERROR'' NOT SET WITH ‘FR’’ FLAG/ 
023613 = 122Ss—s«d117,—s—«*d2D 
023616 042 040 116 
023621 117 124 ~—040 
023624 42123 «=105-—Ss«*1:24 
023627 040,127 
023632. «= 124.=Ss«110—S 040 
023635 = 042,—'s—s«d106-——é1222 
23640 04 040 106 
023643 114 101 107 
023646 000 
3451 023647 122 103 126 E—M115: .ASCIZ /RCV ACTIVE NOT CLEAR WITH INIT/ 
023652 0040S s«101'—Sss«2108 
023655 3 124.—S'i«éd1'—'i“i‘iéT OG 
023660 105 040 116 
023663 «= «117,—s«124~—Ss(040 
023666 42 103—Ss«d114.—S «108 
023671 =«101.-—Sfs«d122—Stts«40 
023674 39127 s117.—i(ts«d122K 
023677, 110s 40s 
023702 «1146S ssi ts«d1K oT 
023705 000 M. 
3452 023706 122 103 126 EM116: .ASCIZ /RCV ACTIVE WITHOUT ‘'START’’ BIT/ M, 
023711 040 101 103 Ni 
023714 «= 12=Sss111,—i(ts«d28 0 
023717, 105s 040—St—s«éd1227 0 
eu. ht. | ie He O 
023725 320«117,—i(si«*d2S «dK P 
023730 040» 042—ts«éd12083 P 
023733 «= 124=Ss«101'—~Sts«éd122 PI 
23736 = 124 = 042Ss«40 
023741 «= 102—C—i—i‘«<4iT?”si‘<i‘é‘éi 
023744 000 
3453 023745 122 104 122 EM117: .ASCIZ /RDR ENABLE NOT CLEAR WITH RCV ACTIVE/ 
023750 040 105 116 





-MAIN. MACRO M1111_ 20-SEP-79 10:37 PAGE 123-13 
TERMINAL OUTPUT TEST SEQ 0119 


023753 


— ee ed od od 3 8) od = 


MONS H-M—NFLO 
AWAO—MmFLOM 


/TESTA# ~ ERRORA 


nr Sx=So=NSO -OO 
OFF OR —WON WN 


o--—- 


/TESTA 


/TESTAH 


/TESTA 


eASCIZ /TESTA 


eASCIZ /TESTA GOOD BAD/ 


024215 





I 
TERMINAL OUTPUT TEST 


MBHKPHKSSONWKKO 
SOOAOOSWNHOWM 


20-SEP-79 10:37 PAGE 123-14 


DHS3: 


DH103: 


DH105: 


DH110: 


DH112: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/TESTA 


/TESTA 


/TESTA 


/TESTA 


/TEST# 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


LKS 


RCSR 


RCSR 


RCSR 


RCSR 





SEQ 0120 
CNT2/ 


BAD/ 


RCv/ 


TRAP ADR/ 





MAIN. MACRO M1111_ 20=SEP=79 10:37 PAGE 123-15 
TERMINAL OUTPUT TEST SEQ 0121 


024477 
024502 : : <CR><LF>/CZDLDDO DL11<W,1144 MFM SLU/ 


™ 


<CR><LF > 
/ DEVICES UNDER TEST / 


oO 
— 


OWMNAW— OW 


oe SS 
fOM—N-O 


024567 


EVEN 
Rezo 061016 002640 DTI: -WORD $TESTN,SERRPC,TCSR,0 


001016 002642 : -WORD $TESTN,SERRPC, TBUF ,0 
001016 002634 DT6: -WORD $TESTN,$SERRPC,RCSR,0 
001016 002636 DT7: -WORD $TESTN,$ERRPC,RBUF ,0 
002674 DT10: -WORD $TESTN,$ERRPC,LKS,0 
001020 DT40: «WORD $TESTN,$SERRPC,$GDADR,$BDADR,0 
002674 DT53: «WORD $TESTN,$ERRPC,LKS,FIRST,SECND,O 
002634 DT103: .WORD $TESTN,$ERRPC,RCSR,$BDDAT,0 
002634 DT105: .WORD $TESTN, SERRPC,RCSR,$GDDAT ,$BDDAT .0 
DT110: .WORD $TESTN,$SERRPC,RCSR,XMTCNT,RCVCNT.O 
002623 000000 DT112: .WORD $TESTN,$SERRPC,RCSR,OLDPC ,BDVECT ,0 


3484 024746 ENDADR: .WORD 0 ;END ADDRESS FOR CHECKSUM AND SAVE AREA 
3485 OF WRAP AROUND CONSOLE TEST 


3486 
3487 . END 
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SYMBOL TABLE SEQ 0122 
ABASE = 176500 BGNADD= 003014 DH110 024364 EM27 020767 GETLIN 014134 
ACDWi = 000000 BITO = 000001 DHi12 024430 EM3 017700 GOAGIN 014504 
ACDW2 = 000000 BITOO = 000001 DH2 024037 EM30 021026 GTSWR = 104405 
ACPUOP= 000000 BITO1 = 000002 DH40 024162 EM31 021057 HT = 000011 
ADDWO = 000000 BITO2 = 000 DH53 024216 EM32 021112 ID 004620 
ADDW1 = 000000 BITO3 = 000010 DH6 024064 EM33 021160 INIT 003462 
ADDW10= 000000 BITO4 = 00002 DH7 024111 EM34 021222 IOTVEC= 000020 
ADDW11= 000000 BITO5 = 000040 DISPLA 001042 EM35 021260 JIMSTK 002432 
ADDW12= 000000 BITO6 = 000 DISPRE 000174 EM36 021310 LF = 000012 
ADDW13= 000000 B1T07 = 000200 DSWR = 177570 EM37 021342 LKS 002674 
ADDW14= 000000 BITO8 = 000400 DT1 024572 EM4 017745 LOCI 002340 
ADDWi5= 000000 BITO9 = 001000 DT10 024632 EM40 021402 LOC2 34 
ADDW2 = 000000 BIT1_ = 000002 DT103 24670 EM41 021430 L 003502 
ADDW3 = 000000 BIT10 = 002000 DT105 = 024702 EM42 021470 MFPT = 0000 
ADDW4 = 000000 BIT11 = 004000 DT110 024716 EM43 021522 MFR 017507 
ADDWS = 000000 BIT12 = 010000 DT112 24732 EM44 021553 MOR 017521 
ADDW6 = 000000 BIT13 = 020000 DT 024602 EM45 021607 MPAR 017476 
ADDW7 = 000000 BIT14 = 040000 DT40 024642 EM46 021644 MSG 017450 
ADDW8 = 000000 BIT15 = 100000 DT53 024654 EM47 021644 MSTOP 017534 

DW9 = 000000 BIT2 = 000004 DT6 024612 EMS 017767 M1 024502 
ADEVCT= 000000 BIT3 = 000010 DT7 024622 EMSO 021700 M2 024540 
ADEVM = 000000 BITS = DVADT 003664 EM51 021725 M2A 024542 
ADR 004132 BITS = 000040 CHO 017324 EMS2 021755 NOEOP 014370 
ADRTBL 002702 BIT6 = 000100 EMTVEC= 000030 EMS3 022032 OLDPC 
AENV = 000000 BIT? = 000200 mM 017630 EM5S4 022056 OLDSUM 002436 
AENVM = 000000 BIT8 = EM10 020074 EMS5 022214 OUTTST 017544 
AFATAL= 000000 BIT9 = 001000 EM100 23107 EMS6 022114 PIRQ = 177772 

= 000000 T = Q00003 EM101 023152 EMS7 022152 PIRQVE= 

AMADR2= 000000 BPTVEC= 000014 EM102 023200 EM6 020024 PROMPT 002566 
AMADR3= 000000 BU 002454 EM103 023237 EM60 022214 PRO = 000000 
AMADR4= 000000 CATCH 014552 EM104 023275 EM61 022243 PR1 = 000040 
AMAMS 1= 900000 CHKSUM 014062 EM105 023332 EM62 022267 PR2 = 000100 
AMAMS2= 000000 CKSWR = 104406 EM106 023355 EM63 022334 PR3 = 000140 
AMAMS3= 000000 CLK 013702 EM107 = 023413 EM64 022360 PR4 = 000200 
AMAMS4= 000000 CLKCNT 002444 EM11 020117 EM65 022404 PR5 = 000240 
AMSGAD= 000000 CMPARE 007244 EM110 023445 EM66 022452 PR6 = 000300 
AMSGLG= 000000 CNTLP 002564 EM111 923475 EM67 022510 PR7 = 340 % 
AMSGTY= 000000 COMP 013504 EM112 = 023535 EM? 020050 PS = 177776 $ 
AMTYP1= 000000 006246 EM113 023552 EM70 022553 PSW = 177776 & 
AMTYP2= 000000 CONT41 012400 EM114 023610 EM71 022620 PUTLIN 014102 % 
AMTYP3= 000000 CR = 000015 EM115 023647 EM72 022767 PWRVEC= $ 
AMTYP4= 000000 CRBUF 002656 EM116 023706 EM73 022662 F %& 
APASS = 000000 CRCSR 002654 EM117 023745 EM74 022720 RBUF 58= 176502 
APR IOR= CRLF = 200 EM12 020162 EM75 022767 %& 
APTC 000040 CRPSW 002666 EM13 020213 EM76 023016 RCSR58= 176500 $i 
APTENV= 000001 CRVECT 002664 EM14 020246 EM77 023042 RCV 13666 pS 
APTSI1Z= 000200 CTBUF 002662 EM15 020307 ENDADD= 02474 RCVCNT 002440 % 
APTSPO= 000100 CTCSR 002660 EM16 020352 ENDADR 024746 RCVDON 010266 $ 
APTSZD 003636 CTPSW 002672 EM17 020403 ENDB? 004676 RDCHR = 104407 $ 
ASWREG= CTSTFL 002624 EM2 017654 ENDEV 014344 RDLIN = 104410 $ 
ATESTN= 000000 CTVECT 002670 EM20 020436 014470 RESTTE 014310 $ 
AUNIT = 000000 DDISP = 177570 EM21 020477 ENDSTK 002412 RESVEC= 000010 $ 
AUSWR = 000400 DEVADR 003014 EM22 020542 RROR = 104000 RPSW 00 
AVECT1= 300 DH1 024012 EM23 020577 ERRVEC= 000004 RSTRT 014530 
AVECT2= 000000 DH10 024136 EM24 020630 FIRST 002336 RTCPSW 002700 
BDVECT 002622 DH103 024263 EM25 020663 FLAG44 003002 RTCVT 002676 


BEGIN 003774 DH105 024320 EM26 020724 GETB 014200 RVECT 002644 
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SYMBOL TABLE SEQ 0123 
R6 =%000006 TCSR 002640 TST? 005012 $SERMAX 001015 $PASS 001074 
R7 =%000007 TCSR58= 176504 TURBUF 003006 $ERROR 014576 $PASTM 000506 
SAVEPS 002434 014234 TURCSR 003004 $ERRPC 001016 $POWER 015262 
SAVETE 014254 TKVEC = 000060 TUTBUF 003012 $ERRTB 001146 $SPWRON 015114 
0 002344 TMP 1 002626 TUTCSR 3010 SERRTY 4760 $ 015250 $I 
SAVLOC 002346 TMP2 002630 TVECT 002650 $SERTTL 001012 SPWRUP 015166 $I 
SCOPE = TMP3 002632 TYPE = 104401 SESCAP 00106 $QUES 1062 $i 
SCPSW 002452 TOLER 007256 TYPOC = 104402 SETABL 001106 $RDCHR 016754 $i 
SECND 002616 TPSwW 002652 TYPON = 104404 SETEND 001146 $RDLIN 017074 $i 
SETADR 0041 TPVEC = TYPOS = 104403 $FATAL 001070 $RDSZ = 10 St 
SHIFT 003740 TRAPVE= 000034 VCTADR 003670 $FFLG 015710 $RTNAD 014462 $I 
SIZE 003512 TRIVEC= 14 VCTTBL 002742 SFILLC 001056 $SAVR6 015260 $I 
SRPSwW 002450 TSTDEV 004050 VECT 004152 $FILLS 001055 $SCOPE 015272 $I 
STACK = 001100 TSTDVM 003646 WACTV 10150 $GDADR 001020 $SETUP= 000137 $I 
START TST] 004172 WAIT 017456 $GDDAT 901024 $STUP = 177777 $I 
STKLMT= 177774 TST10 05044 WDONE 010302 $GET42 014440 $SVLAD 015374 $i 
STPSW 002446 TST11 =005252 013712 $GTSWR 076542 $SVPC = 000500 % 
001040 TSTI12 005404 WRPSW 014540 $HIBTS 000500 $SWR = 161000 $I 
SWREG 000176 TST13. = 005544 T 010236 $ICNT 001004 $SWREG 001110 
SwO = 1 TST14 005614 XCONT 013656 $ILLUP 015254 $SWRMK= $i 
swoO = 000001 TST15 005764 XMIT 013614 $INTAG 001035 $TESTN 001072 $I 
swO1 = 000002 TST16 006154 XMTCNT 002442 SITEMB 001014 $TKB 001046 $I 
SwO2 = TST17 XRET 013662 $LF 001064 $TKS 001044 $i 
SwO3 = 000010 TST2 004244 $APTHD 000500 $LFLG 015707 $IN = $I 
SwO4 = 000020 TST20 006504 $ATYC 015470 $LPADR 001006 $ 001052 $I 
SwOS = 000040 TST21 0 $ATY1 015444 $LPERR 001010 $TPFLG 001057 $| 
SwO6 = 000100 TST22 007002 $ATY3 015452 001120 T 001050 $! 
SswO7 = 000200 TST23 = 007136 $ATY4 015462 SMADR2 001124 STRAP 017246 $| 
Swo8 = TST24 007324 $AUTOB 001034 $MADR3 001130 $TRAP2 017270 $| 
swOo9 = 001000 TST25 007432 $BASE 001142 SMADR4 001134 $TRP = $ 
SWI = TST26 007560 $BDADR 001022 $MAIL 001066 $TRPAD 017302 $ 
SW10 = 002000 TST27 007722 $BDDAT 001026 $SMAMS1 001116 STSTM $ 
SW11 = TST3 004316 $CHARC 016240 SMAMS2 001122 STSTNM 00 % 
SW12 = 010000 TST30 010066 $CKSWR 016472 SMAMS3 001126 $TTYIN 017202 $i 
SW13 = 020000 TST31 =©010402 $CMTAG 001000 SMAMS4 001132 $TYPE 015712 $ 
SW14 = TST32 010504 = 000000 $MBADR 000502 STYPEC 016124 $ 
Sw15 = 100000 TST33 010640 $CNTILG 017217 SMFLG 015706 STYPEX 016242 $ 
SWw2 = 1ST34 011050 $CNTLU 017212 SMNEW 017235 $TYPOC 016270 $ 
SW3 = 000010 TST35 = =—011262 $CPUOP 001114 $MSGAD 001102 STYPON 016 $ 
SW4 = 000020 TST36 = 011476 $CRLF 001063 SMSGLG 001104 $TYPOS 016244 $ 
SWS = TST37 =: 011652 $SDEVCT 001076 SMSGTY 001066 SUNIT 001100 $! 
SWw6 = 000100 TST4 004466 001144 SMSWR 0.17224 SUNITM 000510 $ 
SW7 = = 000200 TST40 012020 $DOAGN 014460 $MTYP1 001117 $US 001112 $i 
SWw8 = TST41 =—012214 $SENDAD 01445 SMTYP2 001123 $VECT1 001136 $i 
Sw9 == 001 TST42 012440 SENDCT 074430 SMTYP3 001127 $VECT2 001140 $i 
TA 002610 TST43 = 012632 SENULL 014464 SMTYP4 001133 $XTSTR 015304 $i 
TBITVE= 000014 TST44 013010 SENV 001106 001054 $$GET4= 000000 b 
TBUF TST45 = 013132 SENVM 001107 $NUTST= 000001 SOFILL 016467 % 
TBUF 58= 176506 TST46 = 013710 $EOP 014400 SOCNT 016466 SERRT 001146 $i 
TCLOCK 005536 TST5 004714 SEOPCT 014422 SOMODE 016470 $x = 000500 5 
TCONS 004020 TST6 004760 $ERFLG 001003 SOVER 015430 4 


- ABS. 024750 000 
000000 001 
ERRORS DETECTED: 0O 
VIRTUAL MEMORY USED: 60528 WORDS ( 237 PAGES) 





C ME : ( 78 PAGES) 
DYNAMIC MEMORY: 20434 WORDS 8 PAGES SEQ 0124 


ak ab ab BoB oS od od od ob ob of 


$ 
bf 
$ 
$ 
$ 
% 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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SYMBOL TABLE 


ELAPSED TIME: 00:05:26 
C7DLDDO,CZDLDDO/NL : TOC/CRF/=SP=CZDLDDO.SML ,CZDLDDO. Pry 


SEQ 0125 








$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


J 10 
CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 omer 1 


SYMBOL CROSS REFERENCE SEQ 0126 
MBOL 


SY VALUE REFERENCES 
ABASE = 176500 #73-852 76-900 76-900 
ACDW1 ==. 000000 76-900 
ACDW2 = 000000 76-900 
ACPUOP = 000000 76-900 76-900 
ADDWO = 000000 76-900 
ADDW1 = 000000 76-900 
ADDW10 = 000000 76-900 
ADDW11 = 000000 76-900 
ADDWi2 = 000000 76-900 
ADDW13 = 000000 76-900 
ADDW14 = 000000 76-900 
ADDW15 = 000000 76-900 
ADDW2 = 000000 76-900 
ADDW3 = 000000 76-900 
ADDW4 = 000000 76-900 
ADDWS = 000000 76-900 
ADDW6 = 000000 76-900 
ADDW7 = = 000000 76-900 
ADDW8 = 000000 76-900 

Dw9 = 000000 76-900 
ADEVCT = 000000 76-900 76-900 
ADEVM = 000000 -900 6-900 
AC.. 004132 #77-1512 77-1515 
ADRTBL 002702 #77-1358 77-1369 77-1510 
AENV = 000000 76-900 76-900 
AENVM = 000000 76-900 76-900 
AFATAL = 000000 76-900 76-900 
AMADR1 = 000000 76-900 76-900 
AMADR2 = 000000 76-900 76-900 
AMADR3 = 000000 76-900 76-900 
AMADR4 = 000000 76-900 76-900 
AMAMS1 = 000000 76-900 76-900 
AMAMS2 = 000000 76-900 76-900 
AMAMS3 = 000000 76-900 76-900 
AMAMS4 = 000000 76-900 76-900 
AMSGAD = 000000 76-900 76-900 
AMSGLG = 000000 76-900 76-900 
AMSGTY = 000000 76-900 76-900 
AMTYP1 = 000000 76-900 76-900 
AMTYP2 = 000000 76-900 76-900 
AMTYP3 = 000000 76-900 76-900 
AMTYP4 = 000000 76-900 76-900 
APASS = 000000 76-9 76-900 

I = 900000 76-900 

APTCSU = 000040 #117-3268 118-3272 
APTENV = 000001 113-3130 =6117-3223 =#117-3266 = 118 - 3272. 
APTSIZ = 000200 77-1394 = #117-3265 
APTSPO = 000100 117-3225 #117-3267 118-3272 
APTSZD 003636 77-1415 77-1417 = #77=1443 
ASWREG = 000000 76-900 76-900 
ATESTN = 000000 76-900 76-900 
AUNIT = 000000 76-900 76-900 


| PRAM MMMHMMMNYD 


CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 PAGE 2 
SYMBOL CROSS REFERENCE CREF SEQ 0127 
SYMBOL VALUE 


| 


000400 
000300 
000000 


REFERENCES 
#73 


#73-857 


110-2891 
77-1408 


99-2375 
103-2534 


77-1414 

ag 
122-3365 

Bo -1702 


76-900 
76-900 


123-3483 


77-1487 
82-1743 
105-2596 
107-2715 


82-1709 


113-3141 


97-2284 
113-3125 


105-2625 


77-1480 


70302847 


88-1931 
92-2075 


105-2594 


82-1704 


109-2816 


104-2566 


116-3206 


97-2294 


79-1576 


99-2404 
108-2760 
88-1932 
107-2707 


106-2637 


82-1714 
97-2267 
105-2618 
109-2838 


105-2601 


97-2313 


79-1581 


106-2648 


87-1892 
84-1774 


108-2764 


88-1934 
110-2963 


82-1723 
97-2311 
105-2624 


82-1724 
98-2347 
105-2629 


82-1729 
98-2350 
106-2639 


106-2644 


79-1582 79-1592 79-1594 


0 
106-2655 107-2673 107-2698 


93-2131 


84-1775 84-1780 84-1782 


108-2767 


88-1935 
110-2982 


108-2768 108-2783 


89-1958 89-1983 
110-2985 110-3001 


82-1730 
98-2356 
106-2650 


79-1597 
97-2278 
98-2339 
100-2431 
104-2578 
107-2702 


85-1797 


109-2803 


90-2010 
110-3004 


> oie oie a! 


(Mt(Nt(AtArathArt~aTN 


OS ee 





CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 PAGE 3 

SYMBOL CROSS REFERENCE CREF SEQ 0128 

SYMBOL VALLE REFERENCES 

BPTVEC = 000014 #73~-85 

BUF 0024 #77-1313 108-2773 109-2811 

CATCH 014552 73-875 #112-3095 

CHK SUM 014062 110-2 110-2919 #110-2944 

CKSWR == 104406 113-314 116-3206 #120-3282 

CLK 013702 108-2762 #109-2855 

CLKCNT 00244 #77-1309 109-2805 *109-2855 

CMPARE 007244 93-2113 #93-2116 

CNTLP 002564 #77-1314 110-2906 

COMP 013504 #109-2813 109-2821 

CONT 246 #88-1941 88-1944 

CONT41 012400 105-2614 #105-2622 

CR = 15 73-850 77-1315 77-1315 77-1316 111-3076 =118-3272 =6118-3272 )3=—- 121-3333 =: 121-3334 
121-3335 = 121-3336) 3=— 123-3467 = 123-3469 

CRBUF 002656 #77-1345 121-3297 = 121-3298 §= 122-3369 

CRCSR 002654 #77-1344 77-1434 77-1491 121-3295 122-3363 

CRLF = 0002 #73-850 118-3272 118-3272 

CRPSwW 002666 #77-1349 

CRVECT 002 #77-1348 

CTBUF 002662 #77~1347 121-3294 121-3297 121-3328 122-3356 

CTCSR 002660 #77-1346 79-1615 79-1628 79-1638 96-2258 97-2278 97-2297 97-2307 97-2315 
97-2323 97-232 98-2339 98-2364 99-2385 99-2389 99-2400 99-2405 100-2431 
00-244 100-2446 101-2467 102-2509 104-2578 105-2619 105-2625 105-2630 106-2655 
107-2698 107-2702 121-3326 122-3354 

CTPSW 002672 #77-1351 

CTSTFL 002624 477-1327 = *77-1384 = *77-1410 = *77-1490 78-1535 78-1552 79-1567 79-1585 79-1613 
79-1626 82-1706 82-1716 82-1732 86-1834 86-1846 88-1924 89-1951 90-2002 
91-2039 92-2066 93-2096 104-2563 105-2598 106-2641 108-2758 109-2801 *111-3070 

CTVECT 002670 #77-1350 

DDISP) = 177570 #73-850 76-900 77-1394 

DEVADR 003014 #77-1369 77-1419 77-1451 110-2868 

DH1 024012 7-904 77-914 77-919 77-924 77-944 77-949 77-954 77-959 77-964 
77-969 77-974 77-979 77-984 77-989 77-994 77-999 77-1004 77-1119 
77-1124 77-1129 77-1134 77-1139 77-1144 77-1149 = #123-3455 

DH10 024136 77-939 77-1034 77-1039 77-1044 77-1049 77-105 77-1064 77-1069 77-1074 
77-1079 7-1084 77-1089 77-1094 77-1099 77-1104 77-1109 77-1273 = 123-3459 

DH103 024263 77-1233 = #123-3462 

DH105 024320 77-1243 77-1248 77-1263 =#123-3463 

DH110 024364 77-1258  #123-3464 

DH112 024430 77-12 #123-3465 

DH2 024037 77-909 #123-3456 

DH40 024162 77-1059 +=#123-3460 

DH53 024216 77-1114 =#123-3461 

DH6 024 77-929 77-100 77-1014 77-1019 77-1024 77-1029 77-1154 77-1159 77-1164 
77-1169 77-1174 77-1179 77-1184 77-1189 77-1194 77-1199 77-1204 77-1208 
77-1213 77-1218 77-1224 77-1229 77-1238 77-1253 77-1278 77-1283 77-1288 
77-1293 = =—#123-3457 

DH7 024111 77-934 #123-3 

DISPLA 001042 #76-900 *77-1394 77-1394 113-3120 116-3206 

DISPRE 000174 473-886 77-13 

DSWR = 177570 #73-850 76-900 77-1394 

DT 024572 77-905 77-915 77-920 77-925 77-945 77-950 77-955 77-960 77-965 





C 
M4 
" 
$ 


M 10 
CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 PAGE 4 
SYMBOL CROSS REFERENCE CREF 
SYMBOL VALUE REFERENCES 
77-970 77-975 77-980 77-985 77-990 77-995 77-1000 77-1005 77-1120 


SEQ 0129 


77-1125 77-1130 77-1135 77-1140 77-1145 77-1150 = 123-3473 
DT10 024632 77-940 77-1035 77-1040 77-1045 77-1050 77-1055 77-1065 77-1070 77-1075 
77-1080 77-1085 77-1090 77-1095 77-1100 77-1105 77-1110 77-1274 = 123-3477 
DT103 024670 77-1234 #123-3480 
DT105 024702 77-1244 77-1249 77-1264 =#123-3481 
DT110 024716 77-1259 = #123-3482 
DT112 24732 77-1269 123-3483 
DT2 024602 77-910 #123-3474 
DT40 024642 77-1060 #123-3478 
DT53 024654 77-1115 = #123-3479 
DT6 024612 77-930 77-1010 77-1 77-1020 77-1025 77-1030 77-1155 77-1160 77-1165 


015 
77-1170 77-1175 77-7180 77-1185 77-1190 77-1195 77-1200 77-1205 77-1209 
225 77-1230 77-1239 77-1254 77-1279 77-1284 77-1289 


DT7 024622 77-935 #123-3476 
DVADT 003664 77-1449 = #77-1451 
ECHO 017324 73-891 #121-3292 = =121-3321 
EMTVEC = 000030 #73-850 77-1394 77-1394 4 
EM 017630 77-903 #123-3375 
EmM10 020074 77-938 #123-3382 
EM100 23107 77-1217 = #1233438 
—M101 023152 77-1223 = #123-3439 
EM102 023200 77-1228 = =#123-3440 
EM103 023237 77-1232 = #123-3441 
EM104 023275 77-1237 = #123-3442 
EM105 023332 77-1242 = #123-3443 
EM106 023355 77-1247 = # 123-3444 
—EM107 023413 77-1252 = #1233445 
EM11 020117 77-943 #123-3383 
EM110 34 77-1257 = 123-3446 
—M111 023475 77-1262 = #123-3447 
EM112 023535 77-1267 = #123- 3448 
—EM113 023552 77-1272 «= #123-3449 
EM114 36 77-1277 =— #123-3450 
EM115 023647 77-1282 = #123-3451 
EM116 023706 77-1287 = #123-3452 
EM117 —s &-: 023745 77-1292 = #123-3453 
EM12 020162 77-948 #123-3384 
EM13 020213 77-953 #123-3385 
EM14 020246 77-958 #123-3386 
EM15 30 77-963 #123-3387 
EM16 020352 77-968 #123-3388 
EM17 04 77-973 #123-3389 
E 017654 77-908 #123-3376 
EM20 77-978 #123-3390 
EM21 020477 77-983 #123-3391 
EM22 020542 77-988 #123-3392 
EM23 020577 77-993 #123-3393 
EM24 77-998 #123-3394 
EM25 77-1003 39 #123-3395 


020663 7 
EM26 020724 77-1008 + -#123-3396 


N 10 
CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 CARE 5 


SYMBOL CROSS REFERENCE SEQ 0130 
SYMBOL VALUE REFERENCES 
EM27 020767 77-1013 = #123-3397 
EM3 017700 77-913 #123-3377 
EM30 021026 77-1018 3123-3398 
EM31 021057 77-1023 + =#123-3399 
EM32 021112 77-1028 #123-3400 
EM33 021160 77-1033 #123-3401 
E 021222 77-1038 #123-3402 
EM35 77-1043 = #1233403 
EM36 021310 77-1048 #123-3404 
EM37 34 77-1053 = #123-3405 
E 017745 77-918 #123-3378 
EM4O 021402 77-1058 + #123-3406 
EM41 021430 77-1063 = #123-3407 
EM42 021470 77-106 #123-3408 
EM43 021522 77-1073 = #123-3409 
EMG4 021553 77-1078 3=#123-3410 
EM45 021607 77-1083) = #123-3411 
EM46 64 77-1088) 3=#123-3413 
EM47 021644 77-1093 = #123-3412 
EMS 017767 77-923 #123-3379 
EMSO 021700 77-1098 = #123-3414 
EMS1 021725 77-1103 = #1233415 
EMS2 021755 77-1108 #123-3416 
EMS3 022032 77-1113) #1233417 
EMS4 022056 77-1118 #123-3418 
EMSS 022214 77-1123 = #1233421 
EMS6 022114 77-1128 = #123-3419 
EMS7 022152 77-1133 = #123-3420 
EM6 020024 77-928 #123-3380 
EM60 022214 77-1138 = =©#123-3422 
EM61 022243 77-1143 = #123-3423 
EM62 022267 77-1148 = 123-3424 
EM63 022334 77-1153 #123-3425 
EM64 022360 77-1158 #123-3426 
EM65 04 77-1163 = #123-3427 
EM66 022452 77-1168 #123-3428 
EM67 022510 77-1173 123-342 
EM7 0050 77-933 #123-3381 
EM70 022553 77-1178 = =#123-3430 
EM71 022620 77-1183 = #123-3431 
EM7? 022767 77-1188 = #123-3434 
EM’3 022662 77-1193 = #123-3432 
EM74 022720 77-1198 §=— #1233433 
EM75 022767 77-1203 = #123-3435 
EM76 023016 77-1207 = #123- 3436 
EM77 023042 77-1212 = #123-3437 
ENDADD = 024746 #110-2869 110-2947 110-3039 110-3056 
ENDADR 024746 110-2869 4123-3484 
ENDB7 004676 79-1633 79-1650 #79-1652 
ENDEV 014344 109-2834 #111-3065 
014470 111-3075 #111-3076 


ENDMG 
ENDSTK 002412 #77-1303 


CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE REFERENCES 
ERROR = 104000 #73-850 78-1537 78-1554 
1 0-1680 81-1692 
84-1771 84-177 84-1785 
86-1854 86-1859 -1 
89-1967 89-1980 89-1989 
94-2158 95-2182 95-2195 
97-2308 97-231 97-2324 
100-2448 101-2474 101-2491 
106-2659 106-2 107-2699 
112-3099 
ERRVEC = 000004 #73-850 77-1394 77-1394 
FIRST 002336 #77-1298 = *93-2114 93-2116 
FLAG44 003002 #77-1360 38977-1387 77-1403 
105-2596 106-2639 107-268 
GETB 014200 110-2915 #110-3 110-3002 
GETLIN 014134 110-2910 #110-2977 110-2987 
GNS = sheewe 120-3282 120-3282 120-3282 
120-3282 120-3282 120-3282 
GOAGIN 014504 111-3075 #112-3079 
GTSWR = 104405 #120-3282 
HT = 000011 #73-850 118-3272 118-3272 
ID 004620 77-1411 79-1622 79-1630 
INIT 003462 77-1409 = #771412 
IOTVEC 000020 473-850 77-1394 77-1394 
JIMSTK 002432 #77-1304 110-2896 
LF = i2 #73-850 77-1315 77-1315 
t 121-3335 121-3336 = 123-3467 
LKS 002674 #77-1354 -1837 86-1852 
87-1894 88-1926 88-1931 
89-1960 89-1969 89-1973 
90-2012 2032 91-2044 
92-2075 92-2082 93-2097 
123-3477 = 123-3479 
LOC 002340 #77-1299 = *110-2898 9 *110-3018 
LOC2 234 #77-1300 *110-2899 *110-3020 
003502 77-1413 = #77-1416 
MF PT = #73-851 77-1400 
MFR 017507 121-3309 #121-3334 
MOR 017521 121-3314 #121-3335 
MPAR 017476 121-3304 4121-3333 
MSG 017450 121-3303 121-3308 121-3313 
MS TOP 017534 121-3319 #121-3336 
M1 024502 9-1646 #123-3467 
M2 024540 79-1648 #123-3469 
M2A 024542 "77-1482 #123-3470 
NOE OP 014370 11-3 111-3070 
OLDPC 002620 #77-1320 = *112-3098 )3=—- 123-3483 
OLDSUM 0024 #77-1306 = *110-2904 110-2920 
OUTTST 017544 73-892 #122-3352 122-3366 
PIRQ = 177772 #73-850 
PIRQVE = 240 473-850 
PROMPT 002566 477-1315 110-2909 


PAGE 6 
CREF 


79-1569 


107-2728 
77-1394 


110-3006 


120-3282 
120-3282 


#79-1637 


77-1316 


93-2102 


B 11 


79-1579 


107-2740 
116-3206 


93-2120 
109-2816 


120-3282 
120-3282 


111-3076 


86-1863 
88-1934 
89-1984 
91-2046 
93-2103 


121-3318 #121-3324 


122-3371 


79-1587 


108-2787 
116-3206 
97-2267 

109-2838 


120-3282 
120-3282 


118-3272 
86-1869 


91-2055 
93-2105 


122-3360 


79-1598 


108-2793 
116-3206 
97-2311 


120-3282 
120-3282 


118-3272 
86-1870 


93-2106 


79-1616 


116-3206 
98-2347 


120-3282 


121-3333 


86-1874 
89-1958 
90-2010 
92-2072 
93-2109 


109-2826 
104-2561 


120-3282 


121-3334 


86-1876 
89-1959 
90-2011 
92-2073 
108-2764 


SEQ 0131 
























































CZDLDDO 


inne nt nn he 


CREATED BY MACRO ON 20-SEP-79 AT 10:40 
SYMBOL CROSS REFERENCE 
MBOL VALUE 


176502 
002634 


176500 


REFERENCES 
#73-850 


#73-850 


73-850 
110-2894 


*108-2770 
97-2295 
#120-3282 
#110-3050 
101-2457 
#112-3085 
89-1955 


86-1848 


102-2523 
*77-1394 


*110-2894 


95 
100-2411 





PAGE 7 
CREF 
*110-2895 *110-2924 
#110-2960 110-2966 
77-1394 115-3164 
97-2271 98-233 
103-2536 104-2571 
106-2661 107-2677 
110-3003 
77-1511 80-1676 
87-1896 97-2271 
98-2336 98-2340 
2377 99-2383 
101-2465 101-2468 
103-2538 103-2547 
107-2687 107-2723 
110-3001 
108-2789 *109-2851 
#97-2300 


101-2459 101-2487 
89-1957 89-1994 

86-1849 86-1881 

90-201 90-2033 

108-2762 109-2830 
85-1794 85-1828 

100-2450 101-2456 
103-2532 103-2533 
*77-1394 77-1394 


110-2924 

110-3050 

110-3052 

78-1545 79-1562 

86-1833 86-1845 

94-2138 95-2166 

101-2454 102-2497 








115-3165 
8 


107-2689 
85-1797 


108-2766 


123-3482 


108-2752 
90-2005 


89-1954 
91-2042 


99-2378 
101-2458 
103-2554 


79-1602 


10369528 





115-3174 
2 


104-2584 
107-2730 


85-1807 
97-2284 
98-2352 
99-2404 
102-2503 
105-2606 
108-2768 


108-2757 
90-2007 


89-1956 
91-2043 


99-2379 
101-2478 
108-2749 


80-1657 


6 
104-2558 


115-3182 
2377 


105-2606 
108-2766 


85-1808 
97-2294 


98-2354 
100-2418 


123-3475 


109-2832 
90-2034 


89-1970 
91-2061 


99-2394 
101-2486 
108-2756 


80-1673 


105-2593 





115-3191 
100-2418 
105-2610 
109-2850 


85-1814 
97-2303 


123-3480 


108-2753 


89-1982 
92-2069 


99-2407 
101-2493 
109-2829 


81-1685 
90-2001 
98-2331 
106-2634 


115-3192 
123-3476 


85-1315 
97-2313 


123-3481 


108-2763 
89-1993 
92-2070 


100-2415 
102-2501 


82-1701 


91-2038 
98-2346 
107-2670 


CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 


PAGE 8 
SYMBOL CROSS REFERENCE CREF 
MBOL VALUE aa aS te 


SEQ 0133 


002452 


#77-1335 


108-2744 
*108-2753 
*93=2128 
#77-1506 

77-1481 
*108-2752 
#77~-1381 


wh wa 1h 


110-2912 
78-1548 
5 


78-1531 


110-287 

109-2833 
123-3479 
109-2832 


109-2831 
vA 


6 
119-3277 


79-1604 
98-2353 
107-2686 


79-1564 


111-3075 


77-1394 = 77-1394 = *77=1394 


110-2891 113-3125 
119-3277 


119-3277 


79-1609 
99-2382 
107-2721 


80-1659 
100-2421 
108-2774 


80-1662 
101-2464 
109-2846 


79-1575 79-1576 79-1581 


77-1408 
89-1951 
105-2601 
113-3137 


77-1416 


113-3141 


96-2247 
103-2537 


79-1582 79-1592 


79-1649 


115-3172 


97-2273 
104-2573 


79-1594 





CZDLDDO 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
TCSR58 = 176504 
TIMER 014234 
TKVEC = 

TMP 1 002626 
TMP2 002630 
TMP3 002632 
TOLER 007256 
TPSW 002652 
TPVEC = 000064 
TRAPVE = 000034 
TRIVEC = 900014 
TSTDEV 004050 
TSTDVM 003646 
TST! 004172 
TST10 00504 
TST11 005252 
TST12 54 
TST13 005544 
TST14 005614 
TST15 0057 
TST16 006154 
TST17 006262 
TST2 004244 
TST20 006504 
TST21 0 
TST22 007902 
TST23 007136 
TST24 007324 
TST25 007432 
TST26 007560 
TST27 007722 
TST3 004316 
TST30 01 
TST31 010402 
TST32 010504 
TST33 010640 
TST34 011050 
TST35 011262 
TST36 011476 
TST37 011652 
TST4 4 
TST4O 012020 
TST41 012214 
TST42 012440 


CREATED BY 


REFERENCES 
79-1597 


#102-2497 
#103-2528 
#79-1602 
#104-2558 
104-2560 


105-2595 


77-1494 
77-1394 
#77-1499 


77-1450 
77-1522 


86-1834 
86-1846 


88-1924 


89-1951 
9C -2002 


92-2066 
93-2096 


104-2568 
105-2603 


MACRO ON 20-SEP-79 AT 10:40 


79-1605 


109-2844 
110-3000 
*77=1502 
*77=-1428 
77-1499 
96-2204 
77-1394 
77-1504 


#78-1528 


486-1845 
#87-1885 


88-1942 
#90-2001 


5 
93-2132 


#105-2593 
#106-2634 


PAGE 9 
CREF 


79-1610 
8 


105-2629 
123-3473 


#110-3018 
77-1508 

*77-1438 

*77-1501 


96-2206 


111-3071 
112-3083 


#89-1950 


#94-2138 


79-1621 


106-2648 


*77-1509 
*77-1443 
*77-1507 


96-2234 


80-1658 


103-2535 


106-2650 


77-1447 


108-2751 


80-1660 
82-1743 
94-2142 
96-2211 
97-2300 
104-2570 
106-2654 


77-1467 


108-2755 


80-1665 
84-1757 
94-2152 
96-2227 
98-2333 
104-2575 
107-2673 


111-3067 


109-2831 


82-1714 
84-1767 


105-2605 
108-2765 


112-3080 


SEQ 0134 


CZDLDDO 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
TS743 012632 
TST44 013010 
TST45 013132 
TST46 013710 
TSTS 004714 
TST6 00476 
TST7 005012 
T F 003 
TURCSR 
TUTBUF 003012 
TUTCSR 003010 
TVECT 002650 
TYPE 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
VCTADR 003670 
VCTTBL 002742 
VECT 1 
WACTV 010150 
WAIT 017456 
010302 
WRAP 013712 
WRPSW 014540 
wT 010236 
XCONT 013656 
IT 013614 
XMTCNT 002442 
XRET 01366 
SAPTHD 000500 
SASTAT = xexeee 
$ATYC 015470 
SATY1 015444 
SATY3 015452 
SATYS 015462 
SAUTOB 001034 
SBASE 001142 
S8BDADR 001022 
SBDDAT 1026 
SCHARC 016240 
SCKSWR 016472 
SCMTAG 001 
$CM3. = 
SCNTLG 017217 


CREATED BY MACRO ON 20-SEP-79 AT 10:40 


REFERENCES 
106-2636 


#76-900 
119-3277 


106-2638 
107-2735 


84-1753 
95 5 


114-3156 


477-1455 
5 


69 
#109-2847 
#74-897 


78-1556 
#117-3218 


118-3272 
78-1556 


119-3277 


76-900 
#119-3277 


106-2646 
#108-2744 


84-1754 


77-1517 
121-3330 


86-1850 
92-2090 
100-2413 
108-2775 


108-2789 


79-1572 


79-1572 
119-3277 


82 
77-1394 


PAGE 10 
CREF 


#107-2670 


84-1787 
3 


89-1952 


#112-3088 


* 109-2836 


79-1589 


79-1589 


119-3277 

77-1432 

87-1899 
*107-2738 
*118-3272 


77-1394 


, 33 


94-2140 
96-2205 


89-1971 
95-2168 
101-2469 


123-3482 


79-1618 


79-1618 


*87-1901 
*109-2824 
4118-3272 


77-1394 


94-2141 
96-2220 


114-3156 
119-3277 
#120-3282 


90-2008 
95-2186 
101-2479 


79-1631 


79-1631 


87-1902 


123-3480 


77-1594 


90-2020 
96-2207 
102-2499 


82-1720 


82-1720 


87-1903 


123-3481 


77-1394 


94-2162 
96-2240 


114-3156 
119-3277 


91-2040 
96-2221 
102-2511 


82-1736 


82-1736 


87-1906 


95-2170 
96-2241 


114-3156 
119-3277 


91-2049 
96-2238 
103-2530 


113-3133 


123-3478 


SEQ 0135 






















CZDLDDO 


CREATED BY MACRO ON 20-SEP-79 AT 10:40 


ia CROSS REFERENCE 


YMBOL VALUE 
SCNTLU 017212 
$C 001114 
SCRLF 001063 
SDEVCT 001076 

EVM 4 4 
GN 014460 
SENDAD 014450 
SENDCT 014430 
SENULL 014464 
SENV 001106 
SENVM 001107 
SEOP 014400 
SEOPCT 014422 
SERFLG 001003 
RMAX 001015 
SERROR 014576 
SERRPC 001016 
SERRTB 001146 
SERRTY 014760 
SERTTL 001012 
SESCAP 1 
SE TABL 001106 
SE TEND 001146 
SFATAL 001070 
SFFLG 015710 
SFILLC 001056 
SFILLS 001055 
SGDADR 001020 
SGDDAT 001024 
SGET42 014440 
SGTSWR 016542 
SHIBTS 500 
SICNT 1004 
SILLUP 015254 
SINTAG 001035 
+ nate 4b 
SLFLG 015707 
SLPADR 1 
SLPERR 001010 
SMADR1 001120 
SMADR2 001124 
SMADR3 001130 
SMADRS 001134 
SMAIL 1 
SMAMS 1 001116 
SMAMS2 001122 
SMAMS 3 001126 
SMAMSS 001132 


REFERENCES 
119-3277 


77-1394 


474-897 


#119-3277 


113-3128 
119-3277 


#111-3075 
#111-3075 


77-1412 
4 


4, 
#113-3117 
*113-3122 
123-3478 
114-3156 
#114-3156 
*113-3121 
*77-1394 


*87-1902 
120-3282 


«77-1394 


74-897 


1 
13-3123 
23-3479 


113-3144 


87-1906 
120-3282 


#76-900 


PAGE 11 
CREF 


113-3146 


*117-3254 
118-3272 


87-1897 
*107-2696 


77-1394 


G 11 


114-3156 


111-3067 
*77-1437 


«116-3206 


#117=3262 


87-1899 
*107-2737 


119-3277 


116-3206 
*116-3206 


116-3206 





114-3156 


*112=3079 
77-1444 


118-3272 
118-3272 


116-3206 


473 


123*5 
123-3482 


87-1904 
*109-2825 


119-3277 


6-3206 
6-3206 


| 
4 


118-3272 


118-3272 


77-1487 


116-3206 


-3206 
-3206 


ee 
Sear 
ao 


SEQ 0136 
118-3272 =118=3272 
77-1499 
123-3475 = 123-3476 


CZDLDDO 


SYMBOL CROSS REFERENCE 
MBOL VALUE 


$STUP 


$SVI_AD 
$SVPC 


CREATED BY MACRO ON 20-SEP-79 AT 10:40 


000010 
014462 
kath 
ckaehek 
015260 
015272 
000137 


177777 
015374 
000560 


REFERENCES 
1 5 


#100-2411 


2 
#74-896 


#119-3277 


118-3272 


-327e 
0-3282 


120-3282 
119-3277 


woe == WN 


115-3183 
6 


74— 896 


*117-3256 
117-3234 
117-3229 


118- 3272 


79-1641 
115-3191 
118-3272 


120-3282 
120-3282 


*115-3193 
#73-882 


73-882 
4116-3206 


PAGE 12 
CREF 
#117-3260 


*117=3237 


118-3272 


#110-2871 
*118-3273 
*111-3075 


119-3277 


*115-3194 


73-882 
473-882 
77-1394 


#73-882 
473-882 


H 11 


117-3249 


78-1545 


110-2871 
*118-3273 
*111-3075 


119-3277 


#115-3201 


473-882 
77-1394 
77-1394 


473-882 
#73-882 


*117=3252 


478-1545 
#80-1657 


#110-2871 
4118-3273 
111-3075 


119-3277 


73-882 
77-1394 
77-1394 


73-882 
73-882 


#79-1562 
#80-1673 
484-1751 
#86-1845 
#89-1950 
492-2065 
#95-2166 
497-2266 
#99=2373 
4102-2497 
#105-2593 
#107-2706 


111-3075 


119-3277 


#73-882 


77-1394 
77-1394 


#73-882 
473-882 


79-1562 


107-2706 


73-882 
77-1394 
111-3075 


#73-882 
#73-882 


#79=1562 
#80-1673 


#102-2497 
#105-2593 
#107-2706 


#73-882 


77-1394 
111-3075 


73-882 
73-882 


SEQ 0137 
| 


CZDLDDO CREATED BY MACRO ON 20-SEP-79 AT 10:40 
SYMBOL CROSS REFERENCE 


SYMBOL VALUE 


PAGE 13 
CREF 


SEQ 0138 


= 161000 


001110 


001044 
000047 


017302 
000504 
001002 
017202 


aanknee 
aeaeke 


015712 


016244 


REFERENCES 
#73-85 


77-1394 


«77-1383 
123-3480 
118-3272 
118-3272 


78-1528 


#120-3282 


*86-1832 
116-3206 
119-3277 


120-3282 


*111-3065 
119-3277 


120-3282 


120-3282 


76-900 


119-3277 
#78-1528 


1 
118-3272 
120-3282 


#120-3282 
120-3282 


*111-3075 
#119-3277 


120-3282 
#118-3272 


77-1394 


110-2871 


118-3272 


120-3282 


#120-3282 


113-3120 


118-3272 


77-1394 


116-3206 
123-3475 


119-3277 
119-3277 


110-2871 


#120-3282 
120-3282 
120-3282 
120-3282 


116-3206 


119-3277 


77-1396 


116-3206 
123-3476 


119-3277 
119-3277 


478-1545 


4110-2871 


120-3282 


120-3282 


*116-3206 


77-1394 


116-3206 
123-3477 


119-3277 
119-3277 


79-1562 


107-2706 


120-3282 


120-3282 


116-3206 





77-1394 


116-3206 


123-3478 


119-3277 
119-3277 


79-1562 


107-2706 


120-3282 


#120-3282 


116-3206 











CZDLDDO CREATED BY MACRO ON 20-SEP=79 AT 10:40 









SYMBOL CROSS REFERENCE 
SY VALUE REFERENCES 
«77-1386 


77-1388 
77-1456 


#711-3075 111-307 
*118=3273 *118-327 
keke 06 


001146 
000500 474-897 74-897 


5 
3 


*77=1503 
»77=1390 


PAGE 14 

CREF 
*77-1506 
107=2690 


118-3273 4118-3273 


*112-3085 
107-2731 


SEQ 0139 


CZDLDDO 
MACRO CROSS REFERENCE 
MACRO NAME REFEREN 
CLKTST 73-792 
COMMEN #18-153 
CTESTS #73-800 
DISMNT #73-813 
#97-2328 
#101-2467 
ENDCOM #18-1542 
ENDPAS #73-7' 
ESCAPE #20-1658 
GETPRI #13-1282 
GETSWR #22-1729 
MUL T #43-4409 
NEWTST #19-1589 
#84-1751 
-2095 
#101-2454 
POP #26-2107 
PUSH #26-2099 
RECDLY #73-829 
#105-2606 
REPORT #56-5368 
SETPRI #12-1250 
SETTRA #120-3282 
SETUP #14-1306 
SKIP #21-1692 
SLASH #17-1482 
SPACE #73-808 
STARS #16-1451 
80-1657 
85-1791 
89-1950 
94-2138 
98-2331 
102-2497 
107-2670 
114-3156 
119-3277 
SWRSU #15-1420 
TRMTRP #120-3282 
TYPBIN #25-2043 
TYPDEC #25-2013 
TYPNAM #23-1783 
TYPNUM #25-1980 
TYPOCS #25-1933 
TYPOCT 425-1896 
TYPTXT #24-1850 
XMTDLY 473-819 
SCLKTS 473-785 
SSCMRE #75-900 
S$CMIM #75-900 
SSESCA #20-1671 


119-3277 
473-850 


#73-850 


486-1834 


#73-850 


CREATED BY MACRO ON 20-SEP-79 AT 10:40 


86-1846 


#79-1628 
#98-2364 
#104-2578 


#78-1528 


4 
#107-2677 
78-1539 


#120-3282 
#73-850 


#73-850 


477-1394 


#114-3156 


96-2263 
#86-1846 


88-1924 


#79-1638 
#99~-2385 
#105-2619 


478-1545 
#86-1845 
#96-2201 
#104-2558 


#98-2352 
#108-2766 
78-1556 


#120-3282 
#77-1394 


73-861 


#77-1394 


#114-3156 


97-2282 
#88-1924 


PAGE 15 
CREF 


89-1951 


#96-2258 
499-2389 
#105=2625 


#79~1562 


#105-2593 


499-2377 
79-1572 
#120-3282 


74-896 


120-3282 


#119-3277 


104-2589 
#89-1951 


90-2002 


#97=2278 
#99~-2400 
#105-2630 


#79-1662 
#106-2634 


#100-2418 
79-1589 
#120-3282 


105-2593 
110-2871 
116-3206 
121-3286 


#90-2002 


91-2039 


#97=2297 
#99=2405 
#106-2655 


#80-1657 
#89-1950 
498-2331 
#107-2670 
#101-2463 
79-1618 


#120-3282 


121-3291 


491-2039 


92-2066 


497-2307 
#100-2431 
4107-2698 


#80-1673 
#90-2001 
#98-2346 
#107-2706 
#102-2505 
79-1631 


#120-3282 


492-2066 


93-2096 


#97=2315 
#100-2442 
#107-2702 


481-1685 
#91-2038 
499-2373 
#108-2744 
#103-2536 
82-1720 


#120-3282 


122-3350 


#93-2096 


SEQ 0140 


#97-2323 
#100-2446 


#82-1701 
#92-2065 
#100-2411 
#110-2871 
#104-2571 


82-1736 


118-3273 






2 
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#6-502 


MACRO CROSS REFERENCE SEQ 0141 
MACRO NAME REFERENCES 
S$NEWT #19-1625  #73-850 478-1528 #78-1545 #79-1562 #79-1602 #80-1657 #80-1673 481-1685 482-1701 
#84-1751 #85-1791 #86-1833 486-1845 487-1885 #88-1923 #89-1950 #90-2001 #91-2038  #92-2065 
#93-2095 494-2138 «495-2166 «996-2201 «= 496-2236 = #97=2266 = #98 =2331 = #98 =2346 = #99= 2373 = #100-2411 
#101=2454 #102=2497 #103-2528 #104-2558 #105-2593 #106-2634 #107-2670 #107-2706 4108-2744 #110-2871 
$$SET #120-3282 #120-3282 4120-3282 4120-3282 4120-3282 #120-3282 #120-3282 #120-3282 4120-3282 
$S$SETM #77=1394 77-1394 
$$SKIP #21-1705 #73-850 
EQUAT #4-180 #73-849 73-850 
EQUIV #73-805 #73-846 #73-850 473-850 473-850 473-850 #73-850 #73-850 #73-850 473-850 
#73-850 #73-850 473-850 473-850 473-850 473-850 473-850 473-850 #73-850 473-850 
#73-850 #73-850 #73-850 #73-850 473-850 
HEADE #2-54 
KT11 #5-323 
SETUP #10-1184 #73-846 #73-882 
. SWRHI #3-96 
-$ACT1 #52-4977 = #73-847 #74-896 
.$APTB #53-5021 #73-847 #76-900 76-900 
. SAPTH 454-5277 = #7 3-847 74-897 
.SAPTY #57-5452 
-SASTA #55-5323 
SCATC #7-909 
SCMTA #9-1020 #73-848 75-900 
- $DB2D #46-4607 
- $DB20 #48-4730 
-SDIV #645-4510 
. SEOP #27-2166 #73-848 #111-3075 
. SERRO 429-2647 
. SERRT #30-2842 #73-846 #114-3156 
. SMULT #44-4447 
- SPOWE #640-4159 
. SRAND 441-4234 
SRDDE 437-3830 
. SRDOC #36-3739 
. SREAD #35-3344 #73-848 119-3277 
- $R2AZ #51-4874 
. SSAVE #38-3905 
- $SB2D #47-4691 
-$SB20 #49-4792 
$SCOP #28-2401 #73-847 #116-3206 
$SIZE 442-4287 
. SSUPR #50-4830 
. STRAP #39-4007 #73-845 #120-3282 
$STYPB 434-3237 
.STYPD #33-3160 
$TYPE 431-2929 #73-845 118-3272 
.STYPO 432-3064 4#73-845 4118-3273 
$40CA #8-948 


